Changeset 33300 in project


Ignore:
Timestamp:
04/21/16 11:31:45 (5 years ago)
Author:
felix winkelmann
Message:

bind 1.5.3: renamed pattern to please changed matchable, reported by lemonboy

Location:
release/4/bind
Files:
2 edited
1 copied

Legend:

Unmodified
Added
Removed
  • release/4/bind/tags/1.5.3/bind-foreign-transformer.scm

    r29019 r33300  
    2121      (('* args ...)  (conc (intersperse (map xpr->str args) "*")))
    2222      (('+ args ...)  (conc (intersperse (map xpr->str args) "+")))
    23       (('-> struct x) (conc (xpr->str struct) "->" (xpr->str x)))
     23      (('-> structname x) (conc (xpr->str structname) "->" (xpr->str x)))
    2424      (('= var x)     (conc (xpr->str var) " = " (xpr->str x)))
    2525      (('deref x)     (conc "*" (xpr->str x)))
  • release/4/bind/trunk/bind-foreign-transformer.scm

    r29019 r33300  
    2121      (('* args ...)  (conc (intersperse (map xpr->str args) "*")))
    2222      (('+ args ...)  (conc (intersperse (map xpr->str args) "+")))
    23       (('-> struct x) (conc (xpr->str struct) "->" (xpr->str x)))
     23      (('-> structname x) (conc (xpr->str structname) "->" (xpr->str x)))
    2424      (('= var x)     (conc (xpr->str var) " = " (xpr->str x)))
    2525      (('deref x)     (conc "*" (xpr->str x)))
Note: See TracChangeset for help on using the changeset viewer.