mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 14:00:21 +02:00
Code Activity

fix typo in assembler

Browse source 
* module/system/vm/assemble.scm (dump-object!): Whoops, spell `nexts'
  correctly.
This commit is contained in:
Andy Wingo 2008-10-18 19:42:37 +02:00
parent 5e390de62f
commit 6ce6dc03c1
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -359,7 +359,7 @@
(error "too many locals" nargs nlocs))
;; really it should be a flag..
(if (> nrest 1) (error "nrest should be 0 or 1" nrest))
(if (> next 255) (error "too many externals" next))
(if (> nexts 255) (error "too many externals" nexts))
(push-code! (object->code nargs))
(push-code! (object->code nrest))
(push-code! (object->code nlocs))