ref: 9c08f284426a1b921959d7bd74ab3a8ddd19eac4
parent: 40487c8b346b42e5f49dff63ec3652d00abcbf40
author: Wing Hei Chan <whmunkchan@outlook.com>
date: Sun Sep 3 12:51:37 CDT 2023
Zuo: add missing label-phase bindings
--- a/zuo-doc/fake-zuo.rkt
+++ b/zuo-doc/fake-zuo.rkt
@@ -18,6 +18,7 @@
unless
begin
cond
+ else
quote
quasiquote
unquote
@@ -26,6 +27,7 @@
define
define-syntax
+ struct
include
require
provide
@@ -58,6 +60,7 @@
car
cdr
list
+ list*
append
reverse
length
@@ -66,11 +69,15 @@
remove
list-ref
list-set
+ list-tail
+ caar cadr cdar cddr
+
andmap
ormap
map
filter
+ sort
foldl
for-each
@@ -100,6 +107,8 @@
substring
string=?
string-ci=?
+ string<?
+ string->integer
string->symbol
string->uninterned-symbol
symbol->string
@@ -148,6 +157,7 @@
fd-poll
eof
fd-terminal?
+ fd-valid?
file->string
display-to-file
@@ -208,6 +218,7 @@
input-file-target
input-data-target
target-path
+ target-shell
target-name
target?
token?
@@ -230,9 +241,16 @@
command-target->target
bounce-to-targets
+ glob->matcher glob-match?
+
shell
shell/wait
build-shell
+ shell-subst
+
+ c-compile c-link c-ar
+ .c->.o .exe .a
+ config-merge config-include config-define
call-in-main-thread
thread? thread channel? channel channel-put channel-get channel-try-get
--- a/zuo-doc/lang-zuo-datum.scrbl
+++ b/zuo-doc/lang-zuo-datum.scrbl
@@ -1,4 +1,5 @@
#lang scribble/manual
+@(require (for-label zuo-doc/fake-zuo))
@title{Zuo Data as Module}
--- a/zuo-doc/real-racket.rkt
+++ b/zuo-doc/real-racket.rkt
@@ -3,11 +3,14 @@
(for-syntax racket/base)
(for-label racket/base
racket/contract/base
- racket/cmdline))
+ racket/cmdline
+ racket/format
+ racket/list))
(provide realracket
realracket*
(for-label any/c
+ or/c
listof
->))