MiscMirror/lispect
1
0
Fork 0
mirror of https://github.com/hymkor/lispect.git synced 2026-08-28 04:46:59 -04:00
Code Issues Packages Projects Releases Wiki Activity

Swap (expect) and (expect*)

Browse Source
This commit is contained in:
HAYAMA_Kaoru
2024-11-30 10:37:43 +09:00
parent 4ffb196563
commit 7cee075958
2 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
example.lsp
+1 -1
View File
@@ -2,7 +2,7 @@
(let ((ctrlc (format nil "~A" (convert 3 <character>)))) (let ((ctrlc (format nil "~A" (convert 3 <character>))))
(block main (block main
(while t (while t
(expect (expect*
("xxx" ("xxx"
(send ctrlc) (send ctrlc)
(sendln "exit") (sendln "exit")
global.go
+2 -2
View File
@@ -49,7 +49,7 @@ func (g *Global) spawn(ctx context.Context, w *gmnlisp.World, args []gmnlisp.Nod
var symTimeout = gmnlisp.NewSymbol("timeout") var symTimeout = gmnlisp.NewSymbol("timeout")
func (g *Global) expectX(ctx context.Context, w *gmnlisp.World, node gmnlisp.Node) (gmnlisp.Node, error) { func (g *Global) expect(ctx context.Context, w *gmnlisp.World, node gmnlisp.Node) (gmnlisp.Node, error) {
patterns := []string{} patterns := []string{}
timeOut := 0 timeOut := 0
@@ -84,7 +84,7 @@ func (g *Global) expectX(ctx context.Context, w *gmnlisp.World, node gmnlisp.Nod
return gmnlisp.Integer(result), nil return gmnlisp.Integer(result), nil
} }
func (g *Global) expect(ctx context.Context, w *gmnlisp.World, node gmnlisp.Node) (gmnlisp.Node, error) { func (g *Global) expectX(ctx context.Context, w *gmnlisp.World, node gmnlisp.Node) (gmnlisp.Node, error) {
patterns := []string{} patterns := []string{}
actions := []gmnlisp.Node{} actions := []gmnlisp.Node{}