From 51c39772864d50f36aa2fda9fc54a71e3d9a832d Mon Sep 17 00:00:00 2001 From: Ekaitz Zarraga Date: Sun, 15 Dec 2024 19:39:19 +0100 Subject: simulation: remove vector-append! (not needed) --- simulation.scm | 3 --- 1 file changed, 3 deletions(-) (limited to 'simulation.scm') diff --git a/simulation.scm b/simulation.scm index d708567..d21aef6 100644 --- a/simulation.scm +++ b/simulation.scm @@ -19,9 +19,6 @@ (let ((now (gettimeofday))) (format #t "~a~a - ~?~%" (car now) (cdr now) f data))) -(define (vector-append! vec value) - (vector-set! vec (vector-length vec) value)) - (define-record-type message (make-message id device-id channel-n body) message? -- cgit v1.2.3