mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 22:10:21 +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 ;; definition forward-declared them
(and (variable-bound? var) (variable-ref var))))))) (and (variable-bound? var) (variable-ref var)))))))
(cond (cond
((or (primitive-macro? val) (eq? val eval-case)) ((or (primitive-macro? val)
(eq? val eval-case))
(or (assq-ref primitive-syntax-table head) (or (assq-ref primitive-syntax-table head)
(syntax-error #f "unhandled primitive macro" head))) (syntax-error #f "unhandled primitive macro" head)))
@ -291,7 +292,11 @@
(if (memq (if toplevel? 'load-toplevel 'evaluate) keys) (if (memq (if toplevel? 'load-toplevel 'evaluate) keys)
(append runtime body) (append runtime body)
runtime))) 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) (define (trans-quasiquote e l x level)
(cond ((not (pair? x)) x) (cond ((not (pair? x)) x)