| 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) ) |
|---|
