From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Mon, 6 May 1991 23:05:51 +0000 (+0000)
Subject: - Add hooks and codes for quotient and remainder.
X-Git-Tag: 20090517-FFI~10652
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=50b55e482cd9d075c792984c8dce624f6b6a5fa6;p=mit-scheme.git

- Add hooks and codes for quotient and remainder.
---

diff --git a/v7/src/compiler/machines/bobcat/lapgen.scm b/v7/src/compiler/machines/bobcat/lapgen.scm
index 4a20032b2..3f12c3fd4 100644
--- a/v7/src/compiler/machines/bobcat/lapgen.scm
+++ b/v7/src/compiler/machines/bobcat/lapgen.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/lapgen.scm,v 4.40 1991/03/24 23:53:14 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/lapgen.scm,v 4.41 1991/05/06 23:05:51 jinx Exp $
 
 Copyright (c) 1988-1991 Massachusetts Institute of Technology
 
@@ -1099,7 +1099,8 @@ 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))
+    set! define lookup-apply primitive-error
+    quotient remainder modulo))
 
 (let-syntax ((define-entries
 	       (macro (start . names)
@@ -1151,6 +1152,9 @@ MIT in each case. |#
     primitive-error
     allocate-closure		; This doesn't have a code: counterpart.
     closure-hook		; This doesn't have a code: counterpart.
+    quotient
+    remainder
+    ;; modulo			; We are out of hook space!
     ))
 
 (define-integrable (invoke-interface code)