From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 19 Dec 2001 01:42:39 +0000 (+0000)
Subject: Eliminate unnecessary use of LEXICAL-UNREFERENCEABLE?.
X-Git-Tag: 20090517-FFI~2370
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=fbc08acf640389fcd57d41cedcb838f332da007b;p=mit-scheme.git

Eliminate unnecessary use of LEXICAL-UNREFERENCEABLE?.
---

diff --git a/v7/src/edwin/dired.scm b/v7/src/edwin/dired.scm
index 9f3d9b6f3..19f6332d3 100644
--- a/v7/src/edwin/dired.scm
+++ b/v7/src/edwin/dired.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: dired.scm,v 1.189 2001/06/04 17:12:33 cph Exp $
+;;; $Id: dired.scm,v 1.190 2001/12/19 01:42:39 cph Exp $
 ;;;
 ;;; Copyright (c) 1986, 1989-2001 Massachusetts Institute of Technology
 ;;;
@@ -110,14 +110,8 @@ Space and Rubout can be used to move down and up by lines.
 (define-key 'dired #\M-rubout 'dired-unmark-all-files)
 (define-key 'dired #\space 'dired-next-line)
 
-(let-syntax ((define-function-key
-               (macro (mode key command)
-                 (let ((token (if (pair? key) (car key) key)))
-                   `(if (not (lexical-unreferenceable? (the-environment)
-                                                       ',token))
-                        (define-key ,mode ,key ,command))))))
-  (define-function-key 'dired down 'dired-next-line)
-  (define-function-key 'dired up 'dired-previous-line))
+(define-key 'dired down 'dired-next-line)
+(define-key 'dired up 'dired-previous-line)
 
 (define-command dired
   "\"Edit\" directory DIRNAME--delete, rename, print, etc. some files in it.