Lines Matching refs:ngotos

246   (define ngotos          #f)
321     (set! ngotos          #f)
811 		    (set! ngotos ng)
812 		    (vector-set! goto-map nvars ngotos)
813 		    (vector-set! temp-map nvars ngotos)
814 		    (set! from-state (make-vector ngotos #f))
815 		    (set! to-state (make-vector ngotos #f))
851     (set! F (make-vector ngotos #f))
852     (do ((i 0 (+ i 1))) ((= i ngotos)) (vector-set! F i (new-set token-set-size)))
854     (let ((reads (make-vector ngotos #f)))
857 	(if (< i ngotos)
932     (set! includes (make-vector ngotos #f))
934 	((= i ngotos))
968     (set! includes (transpose includes ngotos)))
987     (define infinity (+ ngotos 2))
988     (define INDEX (make-vector (+ ngotos 1) 0))
989     (define VERTICES (make-vector (+ ngotos 1) 0))
1025       (if (< i ngotos)