From 9d34a3f5af8bdf7d69a53352b1813bbc402ade25 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Mon, 6 Dec 2004 21:27:35 +0000 Subject: [PATCH] Fix unreferenced-variable warning. --- v7/src/edwin/debug.scm | 3 ++- v7/src/runtime/format.scm | 24 +++++++++++++----------- v7/src/runtime/load.scm | 4 +++- v7/src/runtime/regexp.scm | 15 ++++++--------- v7/src/runtime/unicode.scm | 4 ++-- 5 files changed, 26 insertions(+), 24 deletions(-) diff --git a/v7/src/edwin/debug.scm b/v7/src/edwin/debug.scm index 709f781e5..73b8cca30 100644 --- a/v7/src/edwin/debug.scm +++ b/v7/src/edwin/debug.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: debug.scm,v 1.67 2004/02/16 05:43:03 cph Exp $ +$Id: debug.scm,v 1.68 2004/12/06 21:26:13 cph Exp $ Copyright 1992,1993,1994,1995,1996,1997 Massachusetts Institute of Technology Copyright 1998,1999,2000,2001,2002,2003 Massachusetts Institute of Technology @@ -454,6 +454,7 @@ USA. (call-with-interface-port (buffer-end buffer) (lambda (port) + port (hook/repl-eval #f (prompt-for-expression prompt) (if (default-object? environment) diff --git a/v7/src/runtime/format.scm b/v7/src/runtime/format.scm index 815f254b0..ba9a75bb6 100644 --- a/v7/src/runtime/format.scm +++ b/v7/src/runtime/format.scm @@ -1,8 +1,8 @@ #| -*-Scheme-*- -$Id: format.scm,v 14.8 2003/02/14 18:28:32 cph Exp $ +$Id: format.scm,v 14.9 2004/12/06 21:17:03 cph Exp $ -Copyright (c) 1988-1999 Massachusetts Institute of Technology +Copyright 1986,1987,1988,1991,2004 Massachusetts Institute of Technology This file is part of MIT/GNU Scheme. @@ -149,15 +149,17 @@ USA. ;;;; Formatters -(define (((format-insert-character character) modifiers #!optional n) - port string arguments) - (if (default-object? n) - (output-port/write-char port character) - (let loop ((i 0)) - (if (not (= i n)) - (begin (output-port/write-char port character) - (loop (1+ i)))))) - (format-loop port string arguments)) +(define (format-insert-character character) + (lambda (modifiers #!optional n) + modifiers + (lambda (port string arguments) + (if (default-object? n) + (output-port/write-char port character) + (let loop ((i 0)) + (if (not (= i n)) + (begin (output-port/write-char port character) + (loop (1+ i)))))) + (format-loop port string arguments)))) (define ((format-ignore-comment modifiers) port string arguments) modifiers ;ignore diff --git a/v7/src/runtime/load.scm b/v7/src/runtime/load.scm index e190a7e19..7894cd4f1 100644 --- a/v7/src/runtime/load.scm +++ b/v7/src/runtime/load.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: load.scm,v 14.67 2004/11/19 17:28:51 cph Exp $ +$Id: load.scm,v 14.68 2004/12/06 21:21:44 cph Exp $ Copyright 1988,1989,1990,1991,1992,1993 Massachusetts Institute of Technology Copyright 1994,1999,2000,2001,2002,2003 Massachusetts Institute of Technology @@ -558,6 +558,8 @@ USA. ;;;; Loader for packed binaries (define (load-packed-binaries pathname fname count environment) + fname + (define (process-bunch alist) (let ((real-load load) (real-fasload fasload) diff --git a/v7/src/runtime/regexp.scm b/v7/src/runtime/regexp.scm index 60b96ef0a..0b2c66421 100644 --- a/v7/src/runtime/regexp.scm +++ b/v7/src/runtime/regexp.scm @@ -1,8 +1,8 @@ #| -*-Scheme-*- -$Id: regexp.scm,v 1.13 2003/03/07 21:22:51 cph Exp $ +$Id: regexp.scm,v 1.14 2004/12/06 21:27:31 cph Exp $ -Copyright 1986, 1989-1999 Massachusetts Institute of Technology +Copyright 1999,2000,2003,2004 Massachusetts Institute of Technology This file is part of MIT/GNU Scheme. @@ -81,7 +81,7 @@ USA. (re-match-start-index i regs) (re-match-end-index i regs))) -(define (make-substring-operation name primitive) +(define (make-substring-operation primitive) (lambda (regexp string start end #!optional case-fold? syntax-table) (let ((regexp (if (compiled-regexp? regexp) @@ -102,16 +102,13 @@ USA. (make-re-registers regs))))) (define re-substring-match - (make-substring-operation 'RE-SUBSTRING-MATCH - (ucode-primitive re-match-substring))) + (make-substring-operation (ucode-primitive re-match-substring))) (define re-substring-search-forward - (make-substring-operation 'RE-SUBSTRING-SEARCH-FORWARD - (ucode-primitive re-search-substring-forward))) + (make-substring-operation (ucode-primitive re-search-substring-forward))) (define re-substring-search-backward - (make-substring-operation 'RE-SUBSTRING-SEARCH-BACKWARD - (ucode-primitive re-search-substring-backward))) + (make-substring-operation (ucode-primitive re-search-substring-backward))) (define (make-string-operation substring-operation) (lambda (regexp string #!optional case-fold? syntax-table) diff --git a/v7/src/runtime/unicode.scm b/v7/src/runtime/unicode.scm index bf584ca2e..d89f7ce67 100644 --- a/v7/src/runtime/unicode.scm +++ b/v7/src/runtime/unicode.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: unicode.scm,v 1.20 2004/11/19 18:11:29 cph Exp $ +$Id: unicode.scm,v 1.21 2004/12/06 21:27:35 cph Exp $ Copyright 2001,2003,2004 Massachusetts Institute of Technology @@ -1312,7 +1312,7 @@ USA. (write-string suffix output-port))))) #f))) (lambda (bytes #!optional start end) - (make-port type (open-input-byte-buffer string start end #f))))) + (make-port type (open-input-byte-buffer bytes start end #f))))) (define (utf-string->wide-string string start end source-char caller) (let ((source (open-input-byte-buffer string start end caller))) -- 2.25.1