mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-07-17 06:30:20 +02:00
Code Activity

*** empty log message ***

Browse source
This commit is contained in:
Keisuke Nishida 2001-04-09 04:08:46 +00:00
parent 880ed584e8
commit f349065ed9
2 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

1
module/system/vm/assemble.scm
View file

@ -173,6 +173,7 @@
(lambda (obj+index)
(cond ((cdr obj+index) =>
(lambda (n)
(push-code! '(dup))
(push-code! `(local-set ,n)))))))))
(push-code! (car stack)))))
;; closures

3
src/vm_system.c
View file

@ -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;
}