Ignore:
Timestamp:
05/30/20 21:59:29 (13 months ago)
Author:
Kon Lovett
Message:

remove unused, tighten prefix

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/5/slib-prec/trunk/slib-prec-parse.scm

    r38717 r38718  
    3131  prec:prefix
    3232  prec:infix
    33   prec:infixr
    3433  prec:nary
    3534  prec:postfix
     
    118117;;
    119118
    120 (define (prec:infixr tk sop lbp . binds)
    121   (let* (
    122     (bp (and (not (null? binds)) (number? (car binds)) (car binds)))
    123     (binds (if bp (cdr binds) binds))
    124     (bp (or bp (max 0 (- lbp 1)))) )
    125     (apply prec:infix tk sop lbp bp binds) ) )
    126 
    127 ;;
    128 
    129119(define (make-grammar src #!optional (base '()))
    130120  (let* (
Note: See TracChangeset for help on using the changeset viewer.