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

bugfix to make-cenv

Browse source 
* module/system/base/compile.scm (make-cenv): Fix make-cenv.
This commit is contained in:
Andy Wingo 2008-05-03 19:38:10 +02:00
parent e9b8c501d6
commit 23d43503d1
1 changed files with 1 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

3
module/system/base/compile.scm
View file

@ -35,8 +35,7 @@
(define-record (<cenv> vm language module)) (define-record (<cenv> vm language module))
(define-public (make-cenv . rest) (export make-cenv)
(apply <cenv> rest))
(define-public (syntax-error loc msg exp) (define-public (syntax-error loc msg exp)
(throw 'syntax-error loc msg exp)) (throw 'syntax-error loc msg exp))