Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-15 08:47:35 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Added stub

Browse source
This commit is contained in:
Justin Ethier 2015-03-18 23:03:30 -04:00
parent f819b9e055
commit d058f33933
2 changed files with 3 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
test.scm
View file

@ -24,6 +24,7 @@
;(eval '(begin (define (a z) z) (a 1) (a 1))) ;(eval '(begin (define (a z) z) (a 1) (a 1)))
(Cyc-add-exception-handler (lambda (err) (write 'new-ex-handler))) (Cyc-add-exception-handler (lambda (err) (write 'new-ex-handler)))
(Cyc-remove-exception-handler)
(define test '(a b)) (define test '(a b))
(set-car! test '(1 2 3)) (set-car! test '(1 2 3))
(write test) (write test)

2
trans.scm
View file

@ -69,6 +69,8 @@
(foldr (lambda (x y) (cons (func x) y)) '() lst)) (foldr (lambda (x y) (cons (func x) y)) '() lst))
(define (not x) (if x #f #t)) (define (not x) (if x #f #t))
(define (reverse lst) (foldl cons '() lst)) (define (reverse lst) (foldl cons '() lst))
; (define (with-exception-handler handler thunk)
;
)) ))
;; Built-in macros ;; Built-in macros