~ chicken-core (chicken-5) 676846653e045bf0a9b158c7f43f64fdd67dc328
commit 676846653e045bf0a9b158c7f43f64fdd67dc328 Author: felix <bunny351@gmail.com> AuthorDate: Wed May 26 13:47:23 2010 +0200 Commit: felix <bunny351@gmail.com> CommitDate: Wed May 26 13:47:23 2010 +0200 removed comment diff --git a/compiler.scm b/compiler.scm index 254982e9..9f621600 100644 --- a/compiler.scm +++ b/compiler.scm @@ -1705,7 +1705,7 @@ ((not (get db var 'global)) (put! db var 'global #t) ) ) ) ) ) - ((##core#global-ref) ; not really needed anymore + ((##core#global-ref) (let ((var (first params))) (ref var n) (grow 1)Trap