suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

replace ; with semicolon

Browse Source 
svn: r17760
This commit is contained in:
Jon Rafkind 2010-01-21 00:06:21 +00:00
parent 6220900756
commit 8f4853a3ae
2 changed files with 18 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/honu/main.ss
View File

@ -4,13 +4,14 @@
"private/macro.ss") "private/macro.ss")
(provide (rename-out (#%dynamic-honu-module-begin #%module-begin) (provide (rename-out (#%dynamic-honu-module-begin #%module-begin)
(honu-top #%top)) (honu-top #%top)
(semicolon \;)
)
#%datum #%datum
true true
false false
display display
newline newline
\;
else else
(rename-out (rename-out
(honu-if if) (honu-if if)

19
collects/honu/private/honu-typed-scheme.ss
View File

@ -22,7 +22,8 @@
"this is a literal and cannot be used outside a macro")))) "this is a literal and cannot be used outside a macro"))))
(define-literal honu-return) (define-literal honu-return)
(define-literal \;) (define-literal semicolon)
(define-literal honu-+)
;; (define-syntax (\; stx) (raise-syntax-error '\; "out of context" stx)) ;; (define-syntax (\; stx) (raise-syntax-error '\; "out of context" stx))
@ -338,6 +339,13 @@
[else (call-values parse-one (extract-until body (list #'\; [else (call-values parse-one (extract-until body (list #'\;
)))])) )))]))
#|
(define-honu-macro (e ... * e ... \;))
(foo . bar ())
x(2)
|#
(define (parse-block-one/2 stx context) (define (parse-block-one/2 stx context)
(define (parse-one stx context) (define (parse-one stx context)
(define-syntax-class block (define-syntax-class block
@ -353,10 +361,13 @@
[pattern (~seq e:expr (#%parens args ...)) [pattern (~seq e:expr (#%parens args ...))
#:with call #'(e args ...)]) #:with call #'(e args ...)])
(define-syntax-class expression (define-syntax-class expression
#:literals (\;) [pattern (call:call semicolon . rest) #:with result #'call.call]
[pattern (call:call \; . rest) #:with result #'call.call] [pattern (x:number semicolon . rest) #:with result #'x]
[pattern (x:number \; . rest) #:with result #'x]
) )
#;
(define-syntax-class expression
#:literals (semicolon +)
[pattern (expression1)])
;; (printf "~a\n" (syntax-class-parse function stx)) ;; (printf "~a\n" (syntax-class-parse function stx))
(syntax-parse stx (syntax-parse stx
[function:function (values #'function.result #'function.rest)] [function:function (values #'function.result #'function.rest)]