diff options
| author | Keisuke Nishida <kxn30@po.cwru.edu> | 2001-04-09 04:08:46 +0000 |
|---|---|---|
| committer | Keisuke Nishida <kxn30@po.cwru.edu> | 2001-04-09 04:08:46 +0000 |
| commit | f349065ed9d9b044122c804ff0879d3edc2d2fd0 (patch) | |
| tree | cbf6f3c6046a0caff6f458ad20c2f8b96fa6b9c1 /src | |
| parent | 880ed584e8ffe052f9ff6d53d7f97df372b8dfe0 (diff) | |
| download | guile-f349065ed9d9b044122c804ff0879d3edc2d2fd0.tar.gz | |
*** empty log message ***
Diffstat (limited to 'src')
| -rw-r--r-- | src/vm_system.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/vm_system.c b/src/vm_system.c index 97ac41e41..ba31f74ae 100644 --- a/src/vm_system.c +++ b/src/vm_system.c @@ -70,7 +70,8 @@ VM_DEFINE_INSTRUCTION (drop, "drop", 0, 0, 0) VM_DEFINE_INSTRUCTION (dup, "dup", 0, 0, 1) { - PUSH (*sp); + SCM x = *sp; + PUSH (x); NEXT; } |