From ecfc0cd104265fadfe71ea05116aa29bccf90261 Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Thu, 3 Jul 2008 00:49:52 +0000 Subject: [PATCH] fix misuse of _ svn: r10569 --- collects/mzlib/foreign.ss | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/mzlib/foreign.ss b/collects/mzlib/foreign.ss index 6750ab5df4..6afde7c004 100644 --- a/collects/mzlib/foreign.ss +++ b/collects/mzlib/foreign.ss @@ -1221,8 +1221,8 @@ (provide define-cpointer-type) (define-syntax (define-cpointer-type stx) (syntax-case stx () - [(_ _TYPE) #'(_ _TYPE #f #f #f)] - [(frm _TYPE ptr-type) #'(frm _TYPE ptr-type #f #f)] + [(_ _TYPE) #'(define-cpointer-type _TYPE #f #f #f)] + [(_ _TYPE ptr-type) #'(define-cpointer-type _TYPE ptr-type #f #f)] [(_ _TYPE ptr-type scheme->c c->scheme) (and (identifier? #'_TYPE) (regexp-match #rx"^_.+" (symbol->string (syntax-e #'_TYPE))))