Changeset 38943 in project


Ignore:
Timestamp:
08/30/20 19:25:12 (4 weeks ago)
Author:
Kon Lovett
Message:

add -strict-types, type is interface

Location:
release/5/srfi-29/trunk
Files:
4 edited

Legend:

Unmodified
Added
Removed
  • release/5/srfi-29/trunk/locale-item.scm

    r38077 r38943  
    22;;;; Kon Lovett, Oct '19
    33
    4 ;; Issues
     4;Include File
     5
     6(define-type locale-item (or false symbol))
     7
     8(: ->symbol (* -> symbol))
     9(: locale-item? (* -> boolean : locale-item))
     10(: ->locale-item (* -> locale-item))
     11
    512;;
     13
     14(define (->symbol obj) (string->symbol (->string obj)))
    615
    716(define (locale-item? x)
  • release/5/srfi-29/trunk/srfi-29-install.scm

    r38537 r38943  
    2828(import (only type-errors error-argument-type warning-argument-type))
    2929
    30 ;;; Dependency Neurosis
     30;;
     31
     32(define-type pathname string)
     33
     34(: install-bundle (* #!rest -> void))
     35(: pathname? (* -> boolean : string))
     36;(: system-bundle-directory (#!optional pathname -> (or void pathname)))
     37
     38;; Dependency Neurosis
    3139
    3240;;(only miscmacros define-parameter
     
    8492;;; Utilities
    8593
    86 (define (->symbol obj) (string->symbol (->string obj)))
    87 
    8894(include-relative "locale-item")
    8995
     
    142148;;
    143149
    144 (define-type pathname string)
    145 
    146 (: pathname? (* -> boolean : string))
    147150(define (pathname? obj)
    148151  (and
     
    225228;; Where
    226229
    227 ;(: system-bundle-directory (#!optional pathname -> (or void pathname)))
    228230(define-warning-parameter system-bundle-directory DEFAULT-SYSTEM-BUNDLES pathname)
    229231
     
    242244      (copy-file from to #t)
    243245      #; ;No chmod "lazy"
    244       (file-chmod to 'a+r) ) ) )
     246      (file-chmod to 'a+r) ) )
     247  (void) )
    245248
    246249) ;module srfi-29-install
  • release/5/srfi-29/trunk/srfi-29.egg

    r38537 r38943  
    2525    ;BUG data do not have build commands
    2626    ;(component-dependencies srfi-29-bundles)
    27     (csc-options "-O3" "-d1" "-local" "-strict-types" "-no-procedure-checks-for-toplevel-bindings"))
     27    (csc-options "-O3" "-d1" "-strict-types" "-no-procedure-checks-for-toplevel-bindings"))
    2828  (extension srfi-29
    2929    (types-file)
    3030    (component-dependencies srfi-29-install)
    31     (csc-options "-O3" "-d1" "-local" "-strict-types" "-no-procedure-checks" "-no-bound-checks"))
     31    (csc-options "-O3" "-d1" "-strict-types" "-no-procedure-checks" "-no-bound-checks"))
    3232  (extension srfi-29-logic
    3333    (types-file)
    3434    (component-dependencies srfi-29)
    35     (csc-options "-O3" "-d1" "-local" "-strict-types" "-no-procedure-checks" "-no-bound-checks")) ) )
     35    (csc-options "-O3" "-d1" "-strict-types" "-no-procedure-checks" "-no-bound-checks")) ) )
  • release/5/srfi-29/trunk/srfi-29.scm

    r38537 r38943  
    5454(import (chicken base))
    5555(import (chicken module))
     56(import (chicken type))
    5657(import (only (chicken condition) abort make-property-condition))
    5758(import (only (chicken string) conc ->string))
     
    8788(reexport srfi-29-install)
    8889
    89 ;;; Utilities
    90 
    91 (define (->symbol obj) (string->symbol (->string obj)))
     90;; Utilities
    9291
    9392(include "locale-item")
     
    108107(define NO-TEMPLATE-TAG #(no-template))
    109108
    110 ;;; Errors & Conditions
     109;; Errors & Conditions
    111110
    112111;;
Note: See TracChangeset for help on using the changeset viewer.