Arc Cross Reference |
subst[procedure] subst new old seq(def subst (new old seq) (let boundary (+ (- (len seq) (len old)) 1) (tostring (forlen i seq (if (and (< i boundary) (headmatch old seq i)) (do (++ i (- (len old) 1)) (pr new)) (pr (seq i))))))) | AboutAlphabetical Indexa b c d e f g h i j k l m n o p q r s t u v w x y z other ReleasesRelated |