mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-17 19:32:24 +02:00
Code Activity

actually compile start-stack to something useful

Browse source 
* ice-9/boot-9.scm (start-stack): Define as a defmacro instead of an acro
  in C. We have a way to delay evaluation of the exp, after all: putting
  it in a thunk is sufficient.

* libguile/debug.h:
* libguile/debug.c (scm_sys_start_stack): Renamed from scm_start_stack,
  and exposed to the user. Takes a thunk instead of an expression +
  environment.
  (scm_m_start_stack): Remove this acro.

* module/language/scheme/translate.scm (custom-transformer-table): Remove
  the start-stack special case.
This commit is contained in:
Andy Wingo 2008-09-26 12:03:36 +02:00
parent 99b1dd09cc
commit 107139eaad
4 changed files with 14 additions and 23 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -303,10 +303,6 @@
runtime)))
(else (syntax-error l "bad eval-case clause" (car in))))))))))))
;; FIXME: make this actually do something
(start-stack
((,tag ,expr) (retrans expr)))
;; FIXME: not hygienic, relies on @apply not being shadowed
(apply
(,args (retrans `(@apply ,@args))))