From ce95299919dd4197583e8d8a0969872bc0269221 Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Sat, 10 Oct 2015 23:28:55 -0400 Subject: [PATCH] Removed old type mappings --- scheme/cyclone/cgen.sld | 5 ----- 1 file changed, 5 deletions(-) diff --git a/scheme/cyclone/cgen.sld b/scheme/cyclone/cgen.sld index 7d5075d7..74cb0454 100644 --- a/scheme/cyclone/cgen.sld +++ b/scheme/cyclone/cgen.sld @@ -567,20 +567,15 @@ ((eq? p 'length) "integer_type") ((eq? p 'vector-length) "integer_type") ((eq? p 'char->integer) "integer_type") - ((eq? p 'Cyc-installation-dir) "string_type") ((eq? p 'system) "integer_type") ((eq? p '+) "common_type") ((eq? p '-) "common_type") ((eq? p '*) "common_type") ((eq? p '/) "common_type") ((eq? p 'string->number) "common_type") - ((eq? p 'list->string) "string_type") ((eq? p 'string-cmp) "integer_type") ((eq? p 'string-append) "string_type") - ((eq? p 'symbol->string) "string_type") - ((eq? p 'number->string) "string_type") ((eq? p 'string-length) "integer_type") - ((eq? p 'substring) "string_type") ((eq? p 'apply) "object") ((eq? p 'Cyc-read-line) "object") ((eq? p 'command-line-arguments) "object")