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

fix goops compilation when current language is not scheme

Browse source 
* module/oop/goops/dispatch.scm (compute-dispatch-procedure): Set source
  language to Scheme, not (current-language).
This commit is contained in:
Andy Wingo 2012-07-05 10:15:02 +02:00
parent 8898f43cb2
commit 21b83fb795
1 changed files with 1 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

1
module/oop/goops/dispatch.scm
View file

@ -185,6 +185,7 @@
(lambda () (lambda ()
(let ((p ((@ (system base compile) compile) exp (let ((p ((@ (system base compile) compile) exp
#:env *dispatch-module* #:env *dispatch-module*
#:from 'scheme
#:opts '(#:partial-eval? #f #:cse? #f)))) #:opts '(#:partial-eval? #f #:cse? #f))))
(apply p vals))))) (apply p vals)))))