Fix intmod number-of-args error.

(cherry picked from commit ba43a351c9422a50061bc5dcf29dd8d359277bd7)

diff --git a/src/edwin/intmod.scm b/src/edwin/intmod.scm
index 3ae25be327c59233523504c17b240c1f7c93686f..66b3a5d64ea54d625975c867bd1951433332a7a9 100644 (file)
--- a/src/edwin/intmod.scm
+++ b/src/edwin/intmod.scm
@@ -1000,8 +1000,7 @@ If this is an error, the debugger examines the error condition."
 (define (operation/read-char port)
   (error "READ-CHAR not supported on this port:" port))
 
-(define (operation/read port environment)
-  (declare (ignore environment))
+(define (operation/read port)
   (read-expression port (nearest-cmdl/level)))
 
 (define read-expression