From a89f4f145f586767097fef3760cd3fbea17c7cb3 Mon Sep 17 00:00:00 2001 From: Ben Sima Date: Fri, 22 Nov 2019 12:37:55 -0800 Subject: Redefine 'second' --- Com/Simatime/core.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'Com/Simatime/core.scm') diff --git a/Com/Simatime/core.scm b/Com/Simatime/core.scm index 59288a4..91d9339 100644 --- a/Com/Simatime/core.scm +++ b/Com/Simatime/core.scm @@ -66,8 +66,8 @@ "Returns the next item after the first." (cadr a)) -(define (second a) - (first (next a))) +;; same thing, easier to remember/read +(define second next) (define (ffirst a) (first (first a))) -- cgit v1.2.3