Changeset 31339 in project


Ignore:
Timestamp:
09/06/14 16:29:20 (5 years ago)
Author:
juergen
Message:

options 0.1 initial import

Location:
release/4/options/trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • release/4/options/trunk/options.scm

    r31334 r31339  
    3636;;; The option datatype is inspired by the equally named type in ML.  It
    3737;;; simply stores one or no value at all. To be able to type options, we
    38 ;;; implement it as a functor, named options-functor, and supply an
     38;;; implement it as a functor, named option-functor, and supply an
    3939;;; untyped version as a module named options, which simply applies the
    4040;;; functor to a module with an any? type test, i.e. no check at all.
     
    4949(require-library datatype)
    5050
    51 (functor (options-functor (M (item?)))
     51(functor (option-functor (M (item?)))
    5252         (options option? none some none? some-ref)
    5353(import scheme datatype M
     
    8282      ((sym) (assq sym signatures)))))
    8383
    84 ) ; options-functor
     84) ; option-functor
    8585
    86 (module options = options-functor
     86(module options = option-functor
    8787  (import scheme)
    8888  (define (item? xpr) #t)
  • release/4/options/trunk/options.setup

    r31334 r31339  
    33;(use posix)
    44(compile -O3 -s -d1 options.scm -J)
    5 (compile -O3 -d0 -s options-functor.import.scm)
     5(compile -O3 -d0 -s option-functor.import.scm)
    66(compile -O3 -d0 -s _options.import.scm)
    77(process-run "patch options.import.scm options.patch")
     
    1010(install-extension
    1111 'options
    12  '("options.so" "options.import.so" "_options.import.so" "options-functor.import.so")
     12 '("options.so" "options.import.so" "_options.import.so" "option-functor.import.so")
    1313 '((version "0.1")))
    1414
Note: See TracChangeset for help on using the changeset viewer.