diff options
| author | Andy Wingo <wingo@pobox.com> | 2009-03-09 20:41:02 +0100 |
|---|---|---|
| committer | Andy Wingo <wingo@pobox.com> | 2009-03-09 21:29:40 +0100 |
| commit | addfdeaacf96f2f79b3d3261913d89dff8913bbd (patch) | |
| tree | 17fa085a5e52022463ebe9a6691f6009e9c132a5 | |
| parent | 5e1ee6a9d0600feb3b9dd3b481abec55d691eedf (diff) | |
| download | guile-addfdeaacf96f2f79b3d3261913d89dff8913bbd.tar.gz | |
avoid (set! (@ (foo) bar) baz), for now
* module/language/scheme/inline.scm (define-inline): Well, shit. I can't
figure out how to get (set! (@ (foo) bar) baz) to work with syncase.
Until then, remove the only instance of this from the Guile source.
| -rw-r--r-- | module/language/scheme/inline.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/module/language/scheme/inline.scm b/module/language/scheme/inline.scm index 462fe7f2f..9a2ada71b 100644 --- a/module/language/scheme/inline.scm +++ b/module/language/scheme/inline.scm @@ -54,8 +54,8 @@ ((number? exp) `(make-ghil-quote #f #f ,exp)) (else (error "bad consequent yall" exp)))) - `(set! (@ (language scheme inline) *inline-table*) - (assq-set! (@ (language scheme inline) *inline-table*) + `(set! *inline-table* + (assq-set! *inline-table* ,sym (let ((make-ghil-inline (@ (language ghil) make-ghil-inline)) (make-ghil-quote (@ (language ghil) make-ghil-quote)) |