From facac0446773565d45fea1cac01f669b3bc3b005 Mon Sep 17 00:00:00 2001 From: Stephen Adams Date: Wed, 10 Nov 1993 21:43:04 +0000 Subject: [PATCH] Fixed integration of make-primitive ro ucode-primitive --- v7/src/win32/wt_user.scm | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) 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) -- 2.25.1