2 Old Functions

2 Old Functions🔗ℹ

procedure
(apply proc v ... lst) → any
  proc : procedure?
  v : any/c
  lst : list?

Like apply from scheme/base, but without support for keyword arguments.

value
prop:procedure : struct-type-property?

Like prop:procedure from scheme/base, but even if the property’s value for a structure type is a procedure that accepts keyword arguments, then instances of the structure type still do not accept keyword arguments. (In contrast, if the property’s value is an integer for a field index, then a keyword-accepting procedure in the field for an instance causes the instance to accept keyword arguments.)

procedure
(open-input-file file [mode module-mode]) → input-port?
  file : path-string?
  mode : (one-of/c 'text 'binary) = 'binary
  module-mode : (or-of/c 'module 'none) = 'none
procedure
(open-output-file file [mode exists]) → input-port?
  file : path-string?
  mode : (one-of/c 'text 'binary) = 'binary
   exists :
(one-of/c 'error 'append 'update
          'replace 'truncate 'truncate/replace)
= 'error
procedure
(open-input-output-file file [mode exists])
→
input-port? output-port?
  file : path-string?
  mode : (one-of/c 'text 'binary) = 'binary
   exists :
(one-of/c 'error 'append 'update
          'replace 'truncate 'truncate/replace)
= 'error
procedure
(with-input-from-file file thunk [mode]) → any
  file : path-string?
  thunk : (-> any)
  mode : (one-of/c 'text 'binary) = 'binary
procedure
(with-output-to-file file thunk [mode exists]) → any
  file : path-string?
  thunk : (-> any)
  mode : (one-of/c 'text 'binary) = 'binary
   exists :
(one-of/c 'error 'append 'update
          'replace 'truncate 'truncate/replace)
= 'error
procedure
(call-with-input-file file proc [mode]) → any
  file : path-string?
  proc : (input-port? -> any)
  mode : (one-of/c 'text 'binary) = 'binary
procedure
(call-with-output-file file proc [mode exists]) → any
  file : path-string?
  proc : (output-port? -> any)
  mode : (one-of/c 'text 'binary) = 'binary
   exists :
(one-of/c 'error 'append 'update
          'replace 'truncate 'truncate/replace)
= 'error

Like open-input-file, etc. from scheme/base, but the mode, exists, and module-mode (corresponds to #:for-module?) arguments are not keyword arguments. When both mode and exists or module-mode are accepted, they are accepted in either order.

Changed in version 6.0.1.6 of package compatibility-lib: Added the module-mode argument to open-input-file.

procedure
(syntax-object->datum stx) → any
  stx : syntax?
procedure
(datum->syntax-object ctxt v srcloc [prop cert]) → syntax?
  ctxt : (or/c syntax? false/c)
  v : any/c
   srcloc :
(or/c syntax? false/c
      (list/c any/c
              (or/c exact-positive-integer? false/c)
              (or/c exact-nonnegative-integer? false/c)
              (or/c exact-nonnegative-integer? false/c)
              (or/c exact-positive-integer? false/c))
      (vector/c any/c
                (or/c exact-positive-integer? false/c)
                (or/c exact-nonnegative-integer? false/c)
                (or/c exact-nonnegative-integer? false/c)
                (or/c exact-positive-integer? false/c)))
  prop : (or/c syntax? false/c) = #f
  cert : (or/c syntax? false/c) = #f

The same as syntax->datum and datum->syntax.

procedure
(module-identifier=? a-id b-id) → boolean?
  a-id : syntax?
  b-id : syntax?
procedure
(module-transformer-identifier=? a-id b-id) → boolean?
  a-id : syntax?
  b-id : syntax?
procedure
(module-template-identifier=? a-id b-id) → boolean?
  a-id : syntax?
  b-id : syntax?
procedure
(module-label-identifier=? a-id b-id) → boolean?
  a-id : syntax?
  b-id : syntax?
procedure
(free-identifier=? a-id b-id) → boolean?
  a-id : syntax?
  b-id : syntax?

The module-identifier=?, etc. functions are the same as free-identifier=?, etc. in scheme/base.

The free-identifier=? procedure returns

(and (eq? (syntax-e a) (syntax-e b))
(module-identifier=? a b))

procedure
(make-namespace [mode]) → namespace?
mode : (one-of/c 'initial 'empty) = 'initial

Creates a namespace with mzscheme attached. If the mode is empty, the namespace’s top-level environment is left empty. If mode is 'initial, then the namespace’s top-level environment is initialized with (namespace-require/copy 'mzscheme). See also make-base-empty-namespace.

procedure
(namespace-transformer-require req) → void?
req : any/c

Equivalent to (namespace-require `(for-syntax ,req)).

procedure
(transcript-on filename) → any
filename : any/c
procedure
(transcript-off) → any

Raises exn:fail, because the operations are not supported.

procedure
(hash-table? v) → hash-table?
  v : any/c
(hash-table? v flag) → hash-table?
  v : any/c
  flag : (one-of/c 'weak 'equal 'eqv)
(hash-table? v flag flag2) → hash-table?
  v : any/c
  flag : (one-of/c 'weak 'equal 'eqv)
  flag2 : (one-of/c 'weak 'equal 'eqv)

Returns #t if v is a hash table created by make-hash-table or make-immutable-hash-table with the given flags (or more), #f otherwise. If flag2 is provided, it must be distinct from flag and 'equal cannot be used with 'eqv, otherwise the exn:fail:contract exception is raised.

procedure
(make-hash-table) → hash-table?
(make-hash-table flag) → hash-table?
  flag : (one-of/c 'weak 'equal 'eqv)
(make-hash-table flag flag2) → hash-table?
  flag : (one-of/c 'weak 'equal 'eqv)
  flag2 : (one-of/c 'weak 'equal 'eqv)

Creates and returns a new hash table. If provided, each flag must one of the following:

'weak — creates a hash table with weakly-held keys via make-weak-hash, make-weak-hasheq, or make-weak-hasheqv.
'equal — creates a hash table that compares keys using equal? instead of eq? using make-hash or make-weak-hash.
'eqv — creates a hash table that compares keys using eqv? instead of eq? using make-hasheqv or make-weak-hasheqv.

By default, key comparisons use eq? (i.e., the hash table is created with make-hasheq). If flag2 is redundant or 'equal is provided with 'eqv, the exn:fail:contract exception is raised.

procedure
(make-immutable-hash-table assocs)
→ (and/c hash-table? immutable?)
  assocs : (listof pair?)
(make-immutable-hash-table assocs flag)
→ (and/c hash-table? immutable?)
  assocs : (listof pair?)
  flag : (one-of/c 'equal 'eqv)

Like make-immutable-hash, make-immutable-hasheq, or make-immutable-hasheqv, depending on whether an 'equal or 'eqv flag is provided.

value
hash-table-get : procedure?
value
hash-table-put! : procedure?
value
hash-table-remove! : procedure?
value
hash-table-count : procedure?
value
hash-table-copy : procedure?
value
hash-table-map : procedure?
value
hash-table-for-each : procedure?
value
hash-table-iterate-first : procedure?
value
hash-table-iterate-next : procedure?
value
hash-table-iterate-value : procedure?
value
hash-table-iterate-key : procedure?

The same as hash-ref, hash-set!, hash-remove!, hash-count,hash-copy, hash-map, hash-for-each, hash-iterate-first, hash-iterate-next, hash-iterate-value, and hash-iterate-key, respectively.

value
expand-path : procedure?

The same as cleanse-path.

value
list-immutable : procedure?

The same as list.

procedure
(collection-file-path file collection ...+) → path?
  file : path-string?
  collection : path-string?
procedure
(collection-path collection ...+) → path?
  collection : path-string?

Like collection-file-path and collection-path, but without the #:fail option.

1	Old Syntactic Forms
2	Old Functions
3	Extra Libraries
4	Omitted Forms and Functions