Changeset 35378 in project


Ignore:
Timestamp:
04/05/18 17:47:51 (6 months ago)
Author:
kon
Message:

remove use of anaphoric if

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/srfi-29/trunk/srfi-29.scm

    r35217 r35378  
    55
    66;; Issues
     7;;
     8;; - Explicit phasing !
    79;;
    810;; - Bit of a dither about (disable-interrupts). Suspect not really
     
    7577    dict-safe-mode)
    7678  (only miscmacros
    77     if* define-parameter)
     79    define-parameter)
    7880  (only moremacros
    7981    define-warning-parameter warning-guard)
     
    308310        (and
    309311          (not (null? bndl-spec))
    310           (if* (bundle-ref bndl-spec)
    311             (begin
    312               (dict-set! pkg-dict pkgnam it)
    313               it )
    314             (loop (drop-right! bndl-spec 1)) ) ) ) ) ) )
     312          (let ((contents (bundle-ref bndl-spec)))
     313            (if contents
     314              (begin
     315                (dict-set! pkg-dict pkgnam contents)
     316                contents )
     317              (loop (drop-right! bndl-spec 1)) ) ) ) ) ) ) )
    315318
    316319;;; Locale Parameters
     
    356359
    357360(define (localized-template pkgnam tplnam #!optional defpkg deftpl)
    358   (if* (cached-package-bundle pkgnam)
    359     (dict-ref it tplnam deftpl)
    360     defpkg ) )
     361  (let ((bundle (cached-package-bundle pkgnam)))
     362    (if bundle
     363      (dict-ref bundle tplnam deftpl)
     364      defpkg ) ) )
    361365
    362366;; Returns the localized template from the most specific bundle given
Note: See TracChangeset for help on using the changeset viewer.