| 1 | $ git log -p c08efe2b8d^..21a4cae970 compiler.scm
|
|---|
| 2 |
|
|---|
| 3 | commit 21a4cae9701bf34e87741ac360e4f160da79a739
|
|---|
| 4 | Author: felix <felix@call-with-current-continuation.org>
|
|---|
| 5 | Date: Tue Jan 12 13:21:47 2010 +0100
|
|---|
| 6 |
|
|---|
| 7 | handle numeric version in upgrade message
|
|---|
| 8 |
|
|---|
| 9 | diff --git a/compiler.scm b/compiler.scm
|
|---|
| 10 | index f9f31cd..8dd0eff 100644
|
|---|
| 11 | --- a/compiler.scm
|
|---|
| 12 | +++ b/compiler.scm
|
|---|
| 13 | @@ -1487,7 +1487,7 @@
|
|---|
| 14 | [f-id (gensym 'stub)]
|
|---|
| 15 | [bufvar (gensym)]
|
|---|
| 16 | [rsize (estimate-foreign-result-size rtype)] )
|
|---|
| 17 | - (when sname (set-real-name! f-id (string->symbol sname)))
|
|---|
| 18 | + (set-real-name! f-id #t)
|
|---|
| 19 | (set! foreign-lambda-stubs
|
|---|
| 20 | (cons (make-foreign-stub f-id rtype sname argtypes argnames body cps callback)
|
|---|
| 21 | foreign-lambda-stubs) )
|
|---|
| 22 |
|
|---|
| 23 | commit c08efe2b8d2dcb339d4d8f9f0bc609bfea13b79c
|
|---|
| 24 | Author: felix <felix@call-with-current-continuation.org>
|
|---|
| 25 | Date: Tue Jan 12 09:42:44 2010 +0100
|
|---|
| 26 |
|
|---|
| 27 | fix for wrong entry in real-name hash-table
|
|---|
| 28 |
|
|---|
| 29 | diff --git a/compiler.scm b/compiler.scm
|
|---|
| 30 | index 8dd0eff..f9f31cd 100644
|
|---|
| 31 | --- a/compiler.scm
|
|---|
| 32 | +++ b/compiler.scm
|
|---|
| 33 | @@ -1487,7 +1487,7 @@
|
|---|
| 34 | [f-id (gensym 'stub)]
|
|---|
| 35 | [bufvar (gensym)]
|
|---|
| 36 | [rsize (estimate-foreign-result-size rtype)] )
|
|---|
| 37 | - (set-real-name! f-id #t)
|
|---|
| 38 | + (when sname (set-real-name! f-id (string->symbol sname)))
|
|---|
| 39 | (set! foreign-lambda-stubs
|
|---|
| 40 | (cons (make-foreign-stub f-id rtype sname argtypes argnames body cps callback)
|
|---|
| 41 | foreign-lambda-stubs) )
|
|---|
