diff options
| -rw-r--r-- | Com/Simatime/core.scm | 4 |
1 files changed, 2 insertions, 2 deletions
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))) |