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