conservatory
/
picrin
4
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

syntax-rules: literal support

This commit is contained in:
Yuichi Nishiwaki 2015-06-15 02:53:39 +09:00
parent dfcf8c73bd
commit 691d0ad698
1 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
piclib/picrin/syntax-rules.scm
View File

@ -40,7 +40,6 @@
(map (lambda (s) `(,(car s) . ,(f (cdr s)))) assoc)) (map (lambda (s) `(,(car s) . ,(f (cdr s)))) assoc))
;; TODO ;; TODO
;; - literals
;; - splicing ;; - splicing
;; - placeholder ;; - placeholder
;; - vector ;; - vector
@ -56,6 +55,10 @@
(and (not (pair? obj)) (and (not (pair? obj))
(not (variable? obj)))) (not (variable? obj))))
(define (literal? obj)
(and (variable? obj)
(memq obj literals)))
(define (many? pat) (define (many? pat)
(and (pair? pat) (and (pair? pat)
(pair? (cdr pat)) (pair? (cdr pat))
@ -70,6 +73,8 @@
(cond (cond
((constant? pat) ((constant? pat)
#`(equal? '#,pat #,form)) #`(equal? '#,pat #,form))
((literal? pat)
#`(variable=? #'#,pat #,form))
((variable? pat) ((variable? pat)
#t) #t)
((many? pat) ((many? pat)
@ -88,6 +93,8 @@
(cond (cond
((constant? pat) ((constant? pat)
'()) '())
((literal? pat)
'())
((variable? pat) ((variable? pat)
`(,pat)) `(,pat))
((many? pat) ((many? pat)
@ -100,6 +107,8 @@
(cond (cond
((constant? pat) ((constant? pat)
'()) '())
((literal? pat)
'())
((variable? pat) ((variable? pat)
`((,pat . 0))) `((,pat . 0)))
((many? pat) ((many? pat)
@ -115,6 +124,8 @@
(cond (cond
((constant? pat) ((constant? pat)
'()) '())
((literal? pat)
'())
((variable? pat) ((variable? pat)
`((,pat . ,form))) `((,pat . ,form)))
((many? pat) ((many? pat)