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

stxclass: fixed build bug, fixed tests

Browse Source 
svn: r13265
This commit is contained in:
Ryan Culpepper 2009-01-23 15:13:49 +00:00
parent fac0fc1a55
commit 98b9a62775
2 changed files with 11 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
collects/stxclass/private/rep.ss
View File

@ -187,15 +187,16 @@
(values id sc null (ssc? sc))))]
[(decls id0)
=> (lambda (p)
(let ([stxclass (car p)]
[args (cdr p)])
(unless (equal? (length (sc-inputs stxclass)) (length args))
(raise-syntax-error 'syntax-class
(format "too few arguments for syntax class ~a (expected ~s)"
(sc-name stxclass)
(length (sc-inputs stxclass)))
id0))
(values id0 stxclass args (ssc? stxclass))))]
(define scname (cadr p))
(define args (cddr p))
(define stxclass (get-stxclass scname))
(unless (equal? (length (sc-inputs stxclass)) (length args))
(raise-syntax-error 'syntax-class
(format "too few arguments for syntax class ~a (expected ~s)"
(sc-name stxclass)
(length (sc-inputs stxclass)))
id0))
(values id0 stxclass args (ssc? stxclass)))]
[else (values id0 #f null #f)]))
(define (atomic-datum? stx)

1
collects/tests/stxclass/stxclass.ss
View File

@ -3,6 +3,7 @@
(require (planet "test.ss" ("schematics" "schemeunit.plt" 2 9))
(planet "graphical-ui.ss" ("schematics" "schemeunit.plt" 2 9))
stxclass
stxclass/private/sc
(for-syntax scheme/base stxclass))
;; Testing stuff