From 9c1daf2952508ae1fcdfeb973d76f0ab80cbd574 Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Mon, 24 Jun 1991 23:15:37 +0000 Subject: [PATCH] Define find-symbol and intern-soft. --- v7/src/runtime/scode.scm | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/v7/src/runtime/scode.scm b/v7/src/runtime/scode.scm index 162e14ee4..f2fcf36d1 100644 --- a/v7/src/runtime/scode.scm +++ b/v7/src/runtime/scode.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/scode.scm,v 14.11 1991/02/15 18:06:58 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/scode.scm,v 14.12 1991/06/24 23:15:37 jinx Exp $ Copyright (c) 1988-91 Massachusetts Institute of Technology @@ -118,9 +118,15 @@ MIT in each case. |# (define-integrable string->symbol (ucode-primitive string->symbol)) +(define-integrable find-symbol + (ucode-primitive find-symbol)) + (define-integrable (intern string) (string->symbol (string-downcase string))) +(define (intern-soft string) + (find-symbol (string-downcase string))) + (define (symbol-name symbol) (if (not (symbol? symbol)) (error:wrong-type-argument symbol "symbol" 'SYMBOL-NAME)) -- 2.25.1