From 7bf5456c8c5f64412ea740cbf529b430b908c115 Mon Sep 17 00:00:00 2001 From: Sanel Zukan Date: Mon, 14 Jul 2008 13:58:42 +0000 Subject: [PATCH] Added inc/dec familly --- tools/capone/lib/common.ss | 13 +++++++++++++ 1 file changed, 13 insertions(+) diff --git a/tools/capone/lib/common.ss b/tools/capone/lib/common.ss index 8f3182f..0a058e4 100644 --- a/tools/capone/lib/common.ss +++ b/tools/capone/lib/common.ss @@ -5,6 +5,19 @@ (define first car) (define rest cdr) +;; inc/dec familly +(define (inc n) + (+ 1 n)) + +(define (dec n) + (- n 1)) + +(define-macro (inc! n) + `(set! ,n (+ 1 ,n))) + +(define-macro (dec! n) + `(set! ,n (- ,n 1))) + ;; ;; Allow defining functions like: ;; (def name (param1 param2)