Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-25 04:55:04 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Added tests from R7RS

Browse source
This commit is contained in:
Justin Ethier 2015-03-19 13:23:11 -04:00
parent cc75d7b44c
commit b36640afda
1 changed files with 20 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
test.scm
View file

@ -23,8 +23,26 @@
;(eval '(a 1)) ;(eval '(a 1))
;(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) ;(Cyc-remove-exception-handler)
(write
(call/cc
(lambda (k)
(with-exception-handler
(lambda (x)
(display "condition: ")
(write x)
;(newline)
(k 'exception))
(lambda ()
(+ 1 (raise 'an-error)))))))
(with-exception-handler
(lambda (x)
(display "something went wrong\n"))
(lambda ()
(+ 1 (raise 'an-error))))
(define test '(a b)) (define test '(a b))
(set-car! test '(1 2 3)) (set-car! test '(1 2 3))
(write test) (write test)