From 142a990a46b4051e56a0ba736c0916ea74f39831 Mon Sep 17 00:00:00 2001
From: John Clements <clements@racket-lang.org>
Date: Fri, 22 May 2009 17:53:28 +0000
Subject: [PATCH] eliminated extra arg to error-result construction

svn: r14923
---
 collects/stepper/private/model.ss | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/collects/stepper/private/model.ss b/collects/stepper/private/model.ss
index c313090adb..3a83790c8c 100644
--- a/collects/stepper/private/model.ss
+++ b/collects/stepper/private/model.ss
@@ -1,3 +1,5 @@
+#lang scheme/base
+
 ;step collector state machine (not yet implemented):
 ;
 ; datatype held-type = NO-HELD-STEP | SKIPPED-STEP | HELD(args)
@@ -35,7 +37,6 @@
 ;  double(x) : ERROR
 ;  late-let(x) : ERROR
 
-#lang scheme/base
 
 (require scheme/contract
          scheme/match
@@ -342,7 +343,6 @@
          (receive-result
           (make-before-error-result (append held-finished-list exps)
                                     message
-                                    #f
                                     posn-info))
          (set! held-exp-list the-no-sexp))]))