mirror/ede
1
0
Fork 0
mirror of https://github.com/edeproject/ede.git synced 2023-08-10 21:13:03 +03:00
Code Issues Projects Releases Wiki Activity

Added inc/dec familly

Browse Source
This commit is contained in:
Sanel Zukan 2008-07-14 13:58:42 +00:00
parent 6887e7fcb1
commit 7bf5456c8c
1 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
tools/capone/lib/common.ss
View File

@ -5,6 +5,19 @@
(define first car) (define first car)
(define rest cdr) (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: ;; Allow defining functions like:
;; (def name (param1 param2) ;; (def name (param1 param2)