Changeset 37932 in project


Ignore:
Timestamp:
09/29/19 18:44:36 (3 weeks ago)
Author:
sjamaan
Message:

foof-loop: Update to latest darcs version

Location:
release/5/foof-loop/trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • release/5/foof-loop/trunk/foof-loop.scm

    r37922 r37932  
    33;;;; Extensible Looping Macros, version 9 (BETA)
    44
    5 ;;; Copyright (c) 2008, Taylor R. Campbell
     5;;; Copyright (c) 2008-2009, Taylor R. Campbell
    66;;;
    77;;; Redistribution and use in source and binary forms, with or without
     
    159159
    160160(define-syntax %loop-check
    161   (syntax-rules ()
     161  (syntax-rules (CONTEXT)
    162162    ((%LOOP-CHECK syntactic-check operand
    163163                  (CONTEXT iterator (variable ...) arguments)
     
    11851185             ()                                 ;Entry bindings
    11861186             ((<= variable END))                ;Termination conditions
    1187              (((variable)                       ;Body bindings
    1188                (- variable STEP)))
     1187             (((variable) (- variable STEP)))   ;Body bindings
    11891188             ()                                 ;Final bindings
    11901189             . rest)))
     
    11961195         (CONTEXT DOWN-FROM (variable) (start-expression (BY step-expression)))
    11971196       (next (((START) start-expression)        ;Outer bindings
    1198              ((STEP) step-expression))
    1199             ((variable START variable))         ;Loop variables
    1200             (((variable) (- variable STEP)))    ;Entry bindings
    1201             ()                                  ;Termination conditions
    1202             ()                                  ;Body bindings
    1203             ()                                  ;Final bindings
    1204             . rest)))
     1197              ((STEP) step-expression))
     1198             ((variable START variable))        ;Loop variables
     1199             ()                                 ;Entry bindings
     1200             ()                                 ;Termination conditions
     1201             (((variable) (- variable STEP)))   ;Body bindings
     1202             ()                                 ;Final bindings
     1203             . rest)))
    12051204
    12061205    ;; Add a default step of 1.
  • release/5/foof-loop/trunk/readme.txt

    r37925 r37932  
    1212files, so foof-loop-module.scm, foof-loop.egg, tests/run.scm and
    1313tests/test-shim.scm.
     14
     15The canonical location for this code is https://mumble.net/~campbell/scheme/
     16but at the time of writing, a slightly newer version was available at
     17https://mumble.net/~campbell/darcs/foof-loop/.
Note: See TracChangeset for help on using the changeset viewer.