From: Stephen Adams Date: Tue, 5 Sep 1995 19:04:43 +0000 (+0000) Subject: Added STRING->SYMBOL. X-Git-Tag: 20090517-FFI~5982 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=61660307a55154dfc87a356071b1ee96fc7f446f;p=mit-scheme.git Added STRING->SYMBOL. --- diff --git a/v8/src/compiler/midend/typedb.scm b/v8/src/compiler/midend/typedb.scm index fb6283512..589780df3 100644 --- a/v8/src/compiler/midend/typedb.scm +++ b/v8/src/compiler/midend/typedb.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: typedb.scm,v 1.1 1995/09/04 21:02:52 adams Exp $ +$Id: typedb.scm,v 1.2 1995/09/05 19:04:43 adams Exp $ Copyright (c) 1995 Massachusetts Institute of Technology @@ -37,7 +37,6 @@ MIT in each case. |# (declare (usual-integrations)) - (define-operator-type 'STRING->SYMBOL (procedure-type (list type:string) type:interned-symbol 'effect-sensitive effect:string-set!))