mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 05:50:26 +02:00
Code Activity

disable start-stack in compiled code

Browse source 
* module/language/scheme/translate.scm (primitive-syntax-table): Disable
  semantics of start-stack in compiled code. I think start-stack
  semantics aren't bad, but they don't have vm-based implementations at
  this point.
This commit is contained in:
Andy Wingo 2008-09-01 23:48:10 -07:00
parent 060cce72db
commit 373d251b4d
1 changed files with 7 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

9
module/language/scheme/translate.scm
View file

@ -56,7 +56,8 @@
;; definition forward-declared them
(and (variable-bound? var) (variable-ref var)))))))
(cond
((or (primitive-macro? val) (eq? val eval-case))
((or (primitive-macro? val)
(eq? val eval-case))
(or (assq-ref primitive-syntax-table head)
(syntax-error #f "unhandled primitive macro" head)))
@ -291,7 +292,11 @@
(if (memq (if toplevel? 'load-toplevel 'evaluate) keys)
(append runtime body)
runtime)))
(else (syntax-error l "bad eval-case clause" (car in))))))))))))))
(else (syntax-error l "bad eval-case clause" (car in))))))))))))
;; FIXME: make this actually do something
(start-stack
((,tag ,expr) (retrans expr)))))
(define (trans-quasiquote e l x level)
(cond ((not (pair? x)) x)