Miroirs/skint
1
0
Fork 0
mirror of https://github.com/false-schemers/skint.git synced 2024-12-27 21:58:53 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

another FIXME note

Browse source
This commit is contained in:
ESL 2024-07-12 23:37:49 -04:00
parent 7bc927bb44
commit a2da6a23e8
1 changed files with 1 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
src/t.scm
View file

@ -1816,6 +1816,7 @@
(loop l)] (loop l)]
[(and (pair? v) (eq? (car v) 'syntax-rules)) [(and (pair? v) (eq? (car v) 'syntax-rules))
(body (body
; FIXME: this is the mac-env for built-in syntax-rules macros!
(define (sr-env id at) (define (sr-env id at)
(if (new-id? id) (old-den id) (if (new-id? id) (old-den id)
(name-lookup *root-name-registry* id (name-lookup *root-name-registry* id