From 11fa7bb3769030e882e41659a0e069631034e423 Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Wed, 27 May 1992 17:46:07 +0000 Subject: [PATCH] Fix unbound variable bug and flush unnecessary code. --- v7/src/runtime/site.scm.dos | 28 +++++----------------------- 1 file changed, 5 insertions(+), 23 deletions(-) diff --git a/v7/src/runtime/site.scm.dos b/v7/src/runtime/site.scm.dos index 630bbbaa8..106df787c 100644 --- a/v7/src/runtime/site.scm.dos +++ b/v7/src/runtime/site.scm.dos @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/site.scm.dos,v 1.1 1992/05/13 00:56:46 mhwu Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/site.scm.dos,v 1.2 1992/05/27 17:46:07 jinx Exp $ Copyright (c) 1988-1992 Massachusetts Institute of Technology @@ -35,11 +35,11 @@ MIT in each case. |# ;;;; Switzerland site specific stuff (declare (usual-integrations)) - + ;;; Local hacks (define (call/cc . args) - (warn "call/cc: Invoking the C compiler:" command-line) + (warn "call/cc: Invoking the C compiler:" args) (warn "Segmentation fault (core dumped)")) ;;; Normalization of various directory structures. @@ -47,29 +47,13 @@ MIT in each case. |# (let ((add-directory-rewriting-rule! (access add-directory-rewriting-rule! (->environment '(runtime compiler-info))))) - (for-each - (lambda (path) - (add-directory-rewriting-rule! path "/scheme/")) - '("/scheme/300/" - "/altdorf/scheme/300/" - "/nfs/altdorf/root/scheme/300/" - "/scheme/800/" - "/altdorf/scheme/800" - "/nfs/altdorf/root/scheme/800/" - "/scheme/700/" - "/altdorf/scheme/700" - "/nfs/altdorf/root/scheme/700/" - "/scheme/SONY/" - "/nfs/altdorf/root/scheme/SONY/")) (for-each (lambda (path) (add-directory-rewriting-rule! path "/scheme/runtime")) '("/scheme/runtime/scm/" "/scheme/runtime/bin/" - "/scheme/runtime/com/")) - ) + "/scheme/runtime/com/"))) - ;;; Dos specific: ;;; Timer hook to get interrupt keys @@ -82,6 +66,4 @@ MIT in each case. |# (let ((sv (vector-ref (get-fixed-objects-vector) (fixed-objects-vector-slot 'SYSTEM-INTERRUPT-VECTOR)))) - (vector-set! sv timer-slot typeahead-timer-interrupt)) - - ) \ No newline at end of file + (vector-set! sv timer-slot typeahead-timer-interrupt))) \ No newline at end of file -- 2.25.1