From: Andy Wingo <wingo@pobox.com>
Date: Sat, 18 Oct 2008 17:42:37 +0000 (+0200)
Subject: fix typo in assembler
X-Git-Url: https://git.hcoop.net/bpt/guile.git/commitdiff_plain/6ce6dc03c1e6f648e5d715f5221956377e66a2f9

fix typo in assembler

* module/system/vm/assemble.scm (dump-object!): Whoops, spell `nexts'
  correctly.
---

diff --git a/module/system/vm/assemble.scm b/module/system/vm/assemble.scm
index 26bc2727b..5e61af40b 100644
--- a/module/system/vm/assemble.scm
+++ b/module/system/vm/assemble.scm
@@ -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))