From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Wed, 10 Nov 1993 21:43:04 +0000 (+0000)
Subject: Fixed integration of make-primitive ro ucode-primitive
X-Git-Tag: 20090517-FFI~7545
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=facac0446773565d45fea1cac01f669b3bc3b005;p=mit-scheme.git

Fixed integration of make-primitive ro ucode-primitive
---

diff --git a/v7/src/win32/wt_user.scm b/v7/src/win32/wt_user.scm
index 5e57c176b..6f0cac285 100644
--- a/v7/src/win32/wt_user.scm
+++ b/v7/src/win32/wt_user.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/win32/wt_user.scm,v 1.1 1993/09/20 01:13:04 adams Exp $
+$Id: wt_user.scm,v 1.2 1993/11/10 21:43:04 adams Exp $
 
 Copyright (c) 1993 Massachusetts Institute of Technology
 
@@ -39,13 +39,13 @@ MIT in each case. |#
 
 
 (define-integrable int32-offset-ref   
-          (make-primitive-procedure 'int32-offset-ref))
+          (ucode-primitive int32-offset-ref 2))
 (define-integrable int32-offset-set!  
-          (make-primitive-procedure 'int32-offset-set!))
+          (ucode-primitive int32-offset-set! 3))
 (define-integrable uint32-offset-ref  
-          (make-primitive-procedure 'uint32-offset-ref))
+          (ucode-primitive uint32-offset-ref 2))
 (define-integrable uint32-offset-set! 
-          (make-primitive-procedure 'uint32-offset-set!))
+          (ucode-primitive uint32-offset-set! 3))
 
 (define-integrable byte-offset-ref  vector-8b-ref)	    
 (define-integrable byte-offset-set! vector-8b-set!)	    
@@ -87,7 +87,7 @@ MIT in each case. |#
 
 (define-windows-type RECT
   (lambda (thing) (or (eq? thing #f) (rect? thing)))
-  (lambda (thing) (and thing (rect/mem r)))
+  (lambda (thing) (and thing (rect/mem thing)))
   #f
   #f)