Update the code table.

diff --git a/v7/src/compiler/machines/C/lapgen.scm b/v7/src/compiler/machines/C/lapgen.scm
index 0db587f2b222588d8cacd514be1649497bb93e13..4ccac682b6ab64368206f9013b7ad61c0f043751 100644 (file)
--- a/v7/src/compiler/machines/C/lapgen.scm
+++ b/v7/src/compiler/machines/C/lapgen.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: lapgen.scm,v 1.6 1993/10/28 04:45:19 gjr Exp $
+$Id: lapgen.scm,v 1.7 1993/10/28 04:58:37 gjr Exp $
 
 Copyright (c) 1992-1993 Massachusetts Institute of Technology
 
@@ -612,4 +612,7 @@ MIT in each case. |#
     reference-trap safe-reference-trap unassigned?-trap
     -1+ &/ &= &> 1+ &< &- &* negative? &+ positive? zero?
     access lookup safe-lookup unassigned? unbound?
-    set! define lookup-apply))
\ No newline at end of file
+    set! define lookup-apply primitive-error
+    quotient remainder modulo
+    reflect-to-interface interrupt-continuation-2
+    compiled-code-bkpt compiled-closure-bkpt))
\ No newline at end of file

diff --git a/v7/src/compiler/machines/spectrum/lapgen.scm b/v7/src/compiler/machines/spectrum/lapgen.scm
index f82c193ca33bfa001d495e057680b6f688448778..d3e4ebc2debeaeb42077781786915a1be53797ba 100644 (file)
--- a/v7/src/compiler/machines/spectrum/lapgen.scm
+++ b/v7/src/compiler/machines/spectrum/lapgen.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: lapgen.scm,v 4.44 1993/07/01 03:13:42 gjr Exp $
+$Id: lapgen.scm,v 4.45 1993/10/28 04:59:46 gjr Exp $
 
 Copyright (c) 1988-1993 Massachusetts Institute of Technology
 
@@ -625,7 +625,8 @@ MIT in each case. |#
     access lookup safe-lookup unassigned? unbound?
     set! define lookup-apply primitive-error
     quotient remainder modulo
-    apply-in-interpreter allocate-block))
+    reflect-to-interface interrupt-continuation-2
+    compiled-code-bkpt compiled-closure-bkpt))
 
 (define-integrable (invoke-interface-ble code)
   ;; Jump to scheme-to-interface-ble