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

Macro stepper: factored derivation synthesis code into separate module

Browse Source 
svn: r5585

original commit: 204516bad91acb472c33eb872fa1c496a10a2c14
This commit is contained in:
Ryan Culpepper 2007-02-10 03:46:12 +00:00
parent 3b5732fb6e
commit fc798ea166
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
collects/macro-debugger/model/stx-util.ss
View File

@ -64,9 +64,10 @@
(cond [(zero? n) null]
[else (cons (stx-car items) (stx-take (stx-cdr items) (sub1 n)))]))
;; stx-improper-length : syntax -> number
(define (stx-improper-length stx)
(if (stx-pair? stx)
(add1 (stx-improper-length (stx-cdr stx)))
0))
(let loop ([stx stx] [n 0])
(if (stx-pair? stx)
(loop (stx-cdr stx) (add1 n))
n)))
)