svn: r1059

This commit is contained in:
Eli Barzilay 2005-10-13 02:23:43 +00:00
parent 76640f4c6c
commit e6f69f0996

View File

@ -288,7 +288,7 @@
;;> (1 #f 3) ;;> (1 #f 3)
;;> => ((lambda (x &optional y [z 3]) (list x y z)) 1 2 #f) ;;> => ((lambda (x &optional y [z 3]) (list x y z)) 1 2 #f)
;;> (1 2 #f) ;;> (1 2 #f)
[(&optional &opt &opts) [(&optional &optionals &opt &opts)
(if state (if state
(raise-syntax-error (raise-syntax-error
#f "misplaced &optional argument" stx #'formals) #f "misplaced &optional argument" stx #'formals)