support commas in function calls
svn: r17832
This commit is contained in:
parent
6f26a0ffeb
commit
9ee9280485
|
@ -12,11 +12,13 @@
|
|||
(honu-- -)
|
||||
(honu-? ?)
|
||||
(honu-: :)
|
||||
(honu-comma |,|)
|
||||
)
|
||||
#%datum
|
||||
true
|
||||
false
|
||||
display
|
||||
display2
|
||||
newline
|
||||
else
|
||||
(rename-out
|
||||
|
|
|
@ -33,7 +33,7 @@
|
|||
honu-= honu-+= honu--= honu-*= honu-/= honu-%=
|
||||
honu-&= honu-^= honu-\|= honu-<<= honu->>= honu->>>=
|
||||
honu->> honu-<< honu->>> honu-< honu-> honu-<= honu->=
|
||||
honu-? honu-:)
|
||||
honu-? honu-: honu-comma)
|
||||
|
||||
;; (define-syntax (\; stx) (raise-syntax-error '\; "out of context" stx))
|
||||
|
||||
|
@ -356,6 +356,7 @@
|
|||
x(2)
|
||||
|#
|
||||
|
||||
|
||||
(define (parse-block-one/2 stx context)
|
||||
(define (parse-one stx context)
|
||||
(define-syntax-class block
|
||||
|
@ -369,8 +370,9 @@ x(2)
|
|||
[pattern f])
|
||||
|
||||
(define-splicing-syntax-class call
|
||||
[pattern (~seq e:expr (#%parens arg:trigraph))
|
||||
#:with call #'(e arg.result)])
|
||||
#:literals (honu-comma)
|
||||
[pattern (~seq e:expr (#%parens (~seq arg:trigraph (~optional honu-comma)) ...))
|
||||
#:with call #'(e arg.result ...)])
|
||||
(define-splicing-syntax-class expression-last
|
||||
[pattern (~seq call:call) #:with result #'call.call]
|
||||
[pattern (~seq x:number) #:with result #'x]
|
||||
|
@ -646,6 +648,9 @@ if (foo){
|
|||
(define-syntax (honu-top stx)
|
||||
(raise-syntax-error #f "interactive use is not yet supported"))
|
||||
|
||||
(define (display2 x y)
|
||||
(printf "~a ~a" x y))
|
||||
|
||||
(define-syntax (honu-unparsed-begin stx)
|
||||
;; (printf "honu unparsed begin: ~a\n" (syntax->datum stx))
|
||||
(syntax-case stx ()
|
||||
|
|
Loading…
Reference in New Issue
Block a user