This is the mail archive of the
guile@sourceware.cygnus.com
mailing list for the Guile project.
Re: Undefined variable in goops.scm ?
- To: Thierry Bezecourt <thbz at worldnet dot fr>
- Subject: Re: Undefined variable in goops.scm ?
- From: Mikael Djurfeldt <mdj at mdj dot nada dot kth dot se>
- Date: 10 Jan 2000 17:24:06 +0100
- Cc: guile at sourceware dot cygnus dot com
- Cc: djurfeldt at nada dot kth dot se
- References: <3.0.5.32.20000110102732.013fbac0@edelweb.fr>
2000-01-10 Mikael Djurfeldt <mdj@thalamus.nada.kth.se>
* goops.scm (make-generic-bound-check-getter): Inserted missing
comma which ties down the value of `assert-bound' in the compiled
closure. (Thanks to Thierry Bezecourt.)
Index: goops.scm
===================================================================
RCS file: /cvs/guile/guile/guile-oops/goops.scm,v
retrieving revision 1.53
diff -u -r1.53 goops.scm
--- goops.scm 1999/12/24 00:13:40 1.53
+++ goops.scm 2000/01/10 16:26:19
@@ -951,7 +951,7 @@
(let ((obj (caadr source)))
;; smart closure compilation
(local-eval
- `(lambda (,obj) (assert-bound ,(caddr source) ,obj))
+ `(lambda (,obj) (,assert-bound ,(caddr source) ,obj))
(procedure-environment proc)))
(lambda (o) (assert-bound (proc o) o)))))