From 21b83fb7953fd2b5e40ca9206a0a72ec3cb2489e Mon Sep 17 00:00:00 2001
From: Andy Wingo <wingo@pobox.com>
Date: Thu, 5 Jul 2012 10:15:02 +0200
Subject: [PATCH] fix goops compilation when current language is not scheme

* module/oop/goops/dispatch.scm (compute-dispatch-procedure): Set source
  language to Scheme, not (current-language).
---
 module/oop/goops/dispatch.scm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/module/oop/goops/dispatch.scm b/module/oop/goops/dispatch.scm
index de5359f3c..76f16fb6e 100644
--- a/module/oop/goops/dispatch.scm
+++ b/module/oop/goops/dispatch.scm
@@ -185,6 +185,7 @@
       (lambda ()
         (let ((p ((@ (system base compile) compile) exp
                   #:env *dispatch-module*
+                  #:from 'scheme
                   #:opts '(#:partial-eval? #f #:cse? #f))))
           (apply p vals)))))