mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-29 08:20:20 +02:00
Code Activity

(basic syncase macro): Added.

Browse source
This commit is contained in:
Marius Vollmer 2002-05-06 18:52:01 +00:00
parent 5f1bde674f
commit 0b1b772f29
1 changed files with 7 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

7
test-suite/tests/syncase.test
View file

@ -28,3 +28,10 @@
(false-if-exception (false-if-exception
(begin (eval '(use-syntax (ice-9 syncase)) (current-module)) (begin (eval '(use-syntax (ice-9 syncase)) (current-module))
#t))) #t)))
(define-syntax plus
(syntax-rules ()
((plus x ...) (+ x ...))))
(pass-if "basic syncase macro"
(= (plus 1 2 3) (+ 1 2 3)))