From a8faa740f1e13fce63ac23326a227655bca7a0b2 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Wed, 23 May 2012 02:49:30 +0000
Subject: 	* boot/tokens.boot (%Token): New datatype. 	(makeToken):
 New. 	* boot/includer.boot: Use %token accessors. 	* boot/parser.boot:
 Likewise. 	* boot/pile.boot: Likewise. 	* boot/scanner.boot: Likewise.
 	* boot/utility.boot: Export subString.

---
 src/interp/sys-utility.boot | 6 ------
 1 file changed, 6 deletions(-)

(limited to 'src/interp')

diff --git a/src/interp/sys-utility.boot b/src/interp/sys-utility.boot
index 7e4e738a..5a527962 100644
--- a/src/interp/sys-utility.boot
+++ b/src/interp/sys-utility.boot
@@ -339,12 +339,6 @@ writeByteToStreamSocket(s,b) ==
 makeByteBuffer(n,b == 0) ==
   MAKE_-ARRAY(n,KEYWORD::ELEMENT_-TYPE,"%Byte",KEYWORD::INITIAL_-ELEMENT,b)
 
-++ return the sub-string of `s' starting from `f'.
-++ When non-nil, `n' designates the length of the sub-string.
-subString(s,f,n == nil) ==
-  n = nil => subSequence(s,f)
-  subSequence(s,f,f + n)
-
 ++ Return the position of the symbol `s' in the list `l', if present.
 ++ Otherwise return nil.
 symbolPosition(s,l) ==
-- 
cgit v1.2.3