struct: init synthesizer rewrite

This commit is contained in:
ProgramSnail 2026-05-01 13:45:09 +00:00
parent 80ac511c7a
commit 66ea0e53da
3 changed files with 574 additions and 573 deletions

View file

@ -42,23 +42,23 @@
; -pp ; -pp
; camlp5/pp5+gt+plugins+ocanren+dump.exe))) ; camlp5/pp5+gt+plugins+ocanren+dump.exe)))
; (library (library
; (name synthesizer_st) (name synthesizer_st)
; (modules synthesizer) (modules synthesizer)
; (flags (flags
; ; (-dsource) ; (-dsource)
; (:standard -rectypes)) (:standard -rectypes))
; (libraries OCanren OCanren.tester) (libraries OCanren OCanren.tester)
; (preprocessor_deps ../camlp5/pp5+gt+plugins+ocanren+dump.exe) (preprocessor_deps ../camlp5/pp5+gt+plugins+ocanren+dump.exe)
; (wrapped false) (wrapped false)
; (preprocess (preprocess
; (pps (pps
; OCanren-ppx.ppx_repr OCanren-ppx.ppx_repr
; OCanren-ppx.ppx_deriving_reify OCanren-ppx.ppx_deriving_reify
; OCanren-ppx.ppx_fresh OCanren-ppx.ppx_fresh
; GT.ppx GT.ppx
; GT.ppx_all GT.ppx_all
; OCanren-ppx.ppx_distrib OCanren-ppx.ppx_distrib
; -- --
; -pp -pp
; camlp5/pp5+gt+plugins+ocanren+dump.exe))) camlp5/pp5+gt+plugins+ocanren+dump.exe)))

View file

@ -923,7 +923,7 @@ $s in stmt, f in X, x in X, a in X$
// NOTE: x as path // NOTE: x as path
$mu stretch(=>)^(m space t space x)_(cl vals, types cr) mu'$, $mu stretch(=>)^(m space t space x)_(cl vals, types cr) mu'$,
// TODO: FIXME: is c important ? // TODO:: is c important ?
$mu stretch(=>)^(m space rf c t space rf x_(cl vals, types cr) mu'$, $mu stretch(=>)^(m space rf c t space rf x_(cl vals, types cr) mu'$,
) )
)) ))

File diff suppressed because it is too large Load diff