From 1305edde9e56a3c619ead6f04b3b46fe440ae65c Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Fri, 22 Mar 2019 19:50:19 +0100 Subject: Update formatting of some comments. --- util.scm | 17 ++++++++--------- 1 file changed, 8 insertions(+), 9 deletions(-) (limited to 'util.scm') diff --git a/util.scm b/util.scm index 41302683..6f1b955a 100644 --- a/util.scm +++ b/util.scm @@ -76,16 +76,15 @@ ;; (define-macro (define-quick-record! name . fields) ;; (define-quick-record-templated 'define-record-type name fields)) -;;; Replace let* with a version that can bind from lists. -;;; Also supports SRFI-71 (extended let-syntax for multiple values) -;;; Example: -;; (let* ([a b (values 1 2)] ; SRFI-71 -;; [(c d) '(3 4)] ; Let-list (mine) -;; [e 5]) ; Regular +;; Replace let* with a version that can bind from lists. +;; Also supports SRFI-71 (extended let-syntax for multiple values) +;; @lisp +;; (let* ([a b (values 1 2)] ; @r{SRFI-71} +;; [(c d) '(3 4)] ; @r{Let-list (mine)} +;; [e 5]) ; @r{Regular} ;; (list e d c b a)) ;; ;; => (5 4 3 2 1) -;;; - +;; @end lisp (define-syntax let* (syntax-rules () @@ -123,7 +122,7 @@ (define-public (concat lists) (apply append lists)) -;;; This function borrowed from web-ics (calendar util) +;; This function borrowed from web-ics (calendar util) (define* (sort* items comperator #:optional (get identity)) "A sort function more in line with how python's sorted works" (sort items (lambda (a b) -- cgit v1.2.3