From 61660307a55154dfc87a356071b1ee96fc7f446f Mon Sep 17 00:00:00 2001 From: Stephen Adams Date: Tue, 5 Sep 1995 19:04:43 +0000 Subject: [PATCH] Added STRING->SYMBOL. --- v8/src/compiler/midend/typedb.scm | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) 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!)) -- 2.25.1