Changeset 34901 in project

Timestamp:

11/22/17 20:56:34 (3 years ago)

Author:

sjamaan

Message:

c-l-r: Move "exit" and friends to (chicken base), add return-to-host to (chicken platform) and force-finalizers to (chicken gc)

File:

• wiki/core-libraries-reorganization (modified) (3 diffs)

wiki/core-libraries-reorganization

@@ -31 +31 @@
 ; (chicken foreign) [done] : location define-location let-location foreign-code foreign-value foreign-declare define-foreign-type define-foreign-variable foreign-primitive foreign-lambda foreign-lambda* foreign-safe-lambda foreign-safe-lambda* foreign-type-size
 ; (chicken format) [done] : format fprintf printf sprintf
-; (chicken gc) [done] : set-finalizer! gc set-gc-report! current-gc-milliseconds memory-statistics
+; (chicken gc) [done] : set-finalizer! gc set-gc-report! current-gc-milliseconds memory-statistics force-finalizers
 ; (chicken io) [done] : read-buffered read-byte read-list read-line read-lines read-string read-string! read-token write-byte write-line write-string
 ; (chicken irregex) [done] : irregex irregex? string->sre maybe-string->sre sre->irregex irregex-names irregex-num-submatches string->irregex make-irregex-chunker irregex-extract irregex-fold irregex-match irregex-match? irregex-search irregex-split irregex-replace irregex-replace/all irregex-fold/chunked irregex-match/chunked irregex-search/chunked irregex-match-data? irregex-match-names irregex-match-start-index irregex-match-end-index irregex-match-num-submatches irregex-match-substring irregex-match-valid-index? irregex-match-start-chunk irregex-match-subchunk sre->string irregex-opt irregex-quote glob->sre
@@ -40 +40 @@
 ; (chicken module) [done] : module import import-for-syntax import-syntax import-syntax-for-syntax export reexport define-interface functor
 ; (chicken pathname) [done] : absolute-pathname? decompose-pathname make-pathname make-absolute-pathname pathname-directory pathname-file pathname-extension pathname-replace-directory pathname-replace-file pathname-replace-extension pathname-strip-directory pathname-strip-extension normalize-pathname directory-null? decompose-directory
-; (chicken platform) [done] : build-platform chicken-home chicken-version feature? features repository-path software-type software-version register-feature! unregister-feature! machine-byte-order machine-type installation-repository
+; (chicken platform) [done] : build-platform chicken-home chicken-version feature? features repository-path software-type software-version register-feature! unregister-feature! machine-byte-order machine-type installation-repository return-to-host
 ; (chicken port) [partial] : call-with-input-string call-with-output-string copy-port make-input-port make-output-port port-for-each port-map port-fold make-bidirectional-port make-broadcast-port make-concatenated-port with-error-output-to-port with-error-output-to-string with-input-from-port with-input-from-string with-output-to-port with-output-to-string '''port-closed? port-name port-position flush-output get-output-string open-input-string open-output-string set-port-name! terminal-port? terminal-name terminal-size''' set-buffering-mode!
 ; (chicken pretty-print) [done] : pp pretty-print pretty-print-width
 ; (chicken process signal) [done] : set-signal-handler! set-signal-mask! signal-handler signal-mask signal-mask! signal-masked? signal-unmask! signal/abrt signal/alrm signal/break signal/bus signal/chld signal/cont signal/fpe signal/hup signal/ill signal/int signal/io signal/kill signal/pipe signal/prof signal/quit signal/segv signal/stop signal/term signal/trap signal/tstp signal/urg signal/usr1 signal/usr2 signal/vtalrm signal/winch signal/xcpu signal/xfsz set-alarm!
 ; (chicken process) [partial] : qs system system* process-execute process-fork process-run process-signal process-spawn process-wait call-with-input-pipe call-with-output-pipe close-input-pipe close-output-pipe create-pipe open-input-pipe open-output-pipe with-input-from-pipe with-output-to-pipe process process* pipe/buf spawn/overlay spawn/wait spawn/nowait spawn/nowaito spawn/detach process-group-id create-session
-; (chicken process-context) [partial] : command-line-arguments argv get-environment-variable get-environment-variables set-environment-variable! unset-environment-variable! emergency-exit exit '''exit-handler''' '''implicit-exit-handler''' on-exit executable-pathname program-name change-directory change-directory* current-directory set-root-directory! current-effective-group-id current-effective-user-id current-group-id current-process-id current-user-id parent-process-id current-user-name current-effective-user-name user-information
+; (chicken process-context) [partial] : command-line-arguments argv get-environment-variable get-environment-variables set-environment-variable! unset-environment-variable! executable-pathname program-name change-directory change-directory* current-directory set-root-directory! current-effective-group-id current-effective-user-id current-group-id current-process-id current-user-id parent-process-id current-user-name current-effective-user-name user-information
 ; (chicken random) [done] : random randomize
 ; (chicken read-syntax) [done] : set-read-syntax! set-sharp-read-syntax! set-parameterized-read-syntax! copy-read-table current-read-table define-reader-ctor?
@@ -58 +58 @@
 ; (chicken memory representation) [done] : block-ref block-set! extend-procedure extended-procedure? make-record-instance mutate-procedure! number-of-bytes number-of-slots object-become! object-copy procedure-data record->vector record-instance-length record-instance-slot record-instance-slot-set! record-instance-type record-instance? set-procedure-data! vector-like?
 ; (chicken plist) [done] : remprop! get put! symbol-plist get-properties
-; (chicken base) [partial] : and-let* bignum? case-lambda cplxnum? cut cute declare define-constant define-inline define-record define-record-type define-record-printer define-values delay-force exact-integer? exact-integer-sqrt exact-integer-nth-root flonum? fluid-let fixnum? get-call-chain include include-relative print print* add1 sub1 call/cc current-error-port error void gensym print-call-chain promise? char-name enable-warnings equal=? finite? foldl foldr getter-with-setter infinite? let-optionals let-values let*-values letrec-values letrec* make-parameter nan? nth-value notice optional parameterize procedure-information ratnum? rec receive set!-values setter signum string->uninterned-symbol subvector symbol-append unless vector-copy! vector-resize warning when require-library require-extension quotient&remainder quotient&modulo '''alist-ref alist-update alist-update! rassoc atom? butlast chop compress flatten intersperse join list-of? tail? constantly complement compose conjoin disjoin each flip identity o'''
+; (chicken base) [partial] : and-let* bignum? case-lambda cplxnum? cut cute declare define-constant define-inline define-record define-record-type define-record-printer define-values delay-force exact-integer? exact-integer-sqrt exact-integer-nth-root flonum? fluid-let fixnum? get-call-chain include include-relative print print* add1 sub1 call/cc current-error-port error void gensym print-call-chain promise? char-name enable-warnings equal=? finite? foldl foldr getter-with-setter infinite? let-optionals let-values let*-values letrec-values letrec* make-parameter nan? nth-value notice optional parameterize procedure-information ratnum? rec receive set!-values setter signum string->uninterned-symbol subvector symbol-append unless vector-copy! vector-resize warning when require-library require-extension quotient&remainder quotient&modulo '''alist-ref alist-update alist-update! rassoc atom? butlast chop compress flatten intersperse join list-of? tail? constantly complement compose conjoin disjoin each flip identity o''' emergency-exit exit exit-handler implicit-exit-handler on-exit
 
 ===== TODO