From 8141fbd5cb8e92ce1eb44217b0dac5513ba9b7ee Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Tue, 5 May 2009 23:08:24 +0000
Subject: [PATCH] further improve procedure? and procedure-arity-includes?
 optimization on procedure names bound in a module top-level

svn: r14725

original commit: f08649a00772def158bb0c7de05193c362166734
---
 collects/mzlib/port.ss | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/collects/mzlib/port.ss b/collects/mzlib/port.ss
index 60a5107..3d7c110 100644
--- a/collects/mzlib/port.ss
+++ b/collects/mzlib/port.ss
@@ -1,6 +1,7 @@
-#lang mzscheme
+#lang scheme/base
 
-(require mzlib/etc
+(require (for-syntax scheme/base)
+         mzlib/etc
          scheme/contract
          mzlib/list
          "private/port.ss")
@@ -1064,13 +1065,13 @@
 (define-syntax (newline-rx stx)
   (syntax-case stx ()
     [(_ str)
-     (datum->syntax-object
+     (datum->syntax
       #'here
       (byte-regexp (string->bytes/latin-1
                     (format "^(?:(.*?)~a)|(.*?$)" (syntax-e #'str)))))]))
 
 (define read-bytes-line-evt
-  (opt-lambda (input-port [mode 'linefeed])
+  (lambda (input-port [mode 'linefeed])
     (wrap-evt
      (regexp-match-evt (case mode
                          [(linefeed) (newline-rx "\n")]
@@ -1085,7 +1086,7 @@
              (if (and l (zero? (bytes-length l))) eof l)))))))
 
 (define read-line-evt
-  (opt-lambda (input-port [mode 'linefeed])
+  (lambda (input-port [mode 'linefeed])
     (wrap-evt
      (read-bytes-line-evt input-port mode)
      (lambda (s)