(let ((ires #f))
(while (begin (set! ires (dc-intresp resp)) ires)
(if (assoc (car ires) fnetnodes)
- (set-cdr! (assoc (car ires) fnetnodes) (caddr ires))
- (set! fnetnodes (cons (cons (car ires) (caddr ires)) fnetnodes))))))))
+ (set-cdr! (assoc (car ires) fnetnodes) (list-ref ires 5))
+ (set! fnetnodes (cons (cons (car ires) (list-ref ires 5)) fnetnodes))))))))
(define (fn-getname id)
(if (not (assoc id fnetnodes))
(set! last-fn (vector-ref ires 0))))
(for-each
(lambda (p)
- (write-line (string-append (strftime "%H:%M:%S" (localtime (current-time))) ": <" (vector-ref ires 3) "> " (vector-ref ires 4)) p))
+ (write-line (string-append (strftime "%H:%M:%S" (localtime (current-time))) (if (eq? (vector-ref ires 1) 0) "!" ":") " <" (vector-ref ires 3) "> " (vector-ref ires 4)) p))
(list p (current-output-port)))
(close-port p))
))
)
- ((602)
- (let ((ires (dc-intresp resp)))
- (if ires
- (let ((ent (assoc (car ires) fnetnodes)))
- (if ent
- (set-cdr! ent (cadr ires))
- (set! fnetnodes (cons (cons (car ires) (cadr ires)) fnetnodes)))))))
+; ((602)
+; (let ((ires (dc-intresp resp)))
+; (if ires
+; (let ((ent (assoc (car ires) fnetnodes)))
+; (if ent
+; (set-cdr! ent (cadr ires))
+; (set! fnetnodes (cons (cons (car ires) (cadr ires)) fnetnodes)))))))
)
)