misc-deps
/
raart
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

better order

This commit is contained in:
Jay McCarthy 2018-01-08 13:45:24 -05:00
parent fd53009f1d
commit 01a9b06db5
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
buffer.rkt
View File

@ -40,7 +40,7 @@
#:clear? [clear? #t] #:clear? [clear? #t]
#:output [op (current-output-port)]) #:output [op (current-output-port)])
(terminal-buffer clear? op term-rows term-cols)) (terminal-buffer clear? op term-rows term-cols))
(define-struct-define terminal-buffer terminal-buffer-define) (define-struct-define terminal-buffer-define terminal-buffer)
(struct terminal-buffer (clear? op [term-rows #:mutable] [term-cols #:mutable]) (struct terminal-buffer (clear? op [term-rows #:mutable] [term-cols #:mutable])
#:methods gen:buffer #:methods gen:buffer
[(define (buffer-resize! buf new-rows new-cols) [(define (buffer-resize! buf new-rows new-cols)
@ -143,7 +143,7 @@
(define (make-output-buffer #:output [op (current-output-port)]) (define (make-output-buffer #:output [op (current-output-port)])
(output-buffer op (make-cells 0 0))) (output-buffer op (make-cells 0 0)))
(define-struct-define output-buffer output-buffer-define) (define-struct-define output-buffer-define output-buffer)
(struct output-buffer (op [cells #:mutable]) (struct output-buffer (op [cells #:mutable])
#:methods gen:buffer #:methods gen:buffer
[(define (buffer-resize! buf new-rows new-cols) [(define (buffer-resize! buf new-rows new-cols)
@ -187,7 +187,7 @@
(make-cells term-rows term-cols) (make-cells term-rows term-cols)
(make-cells term-rows term-cols) (make-cells term-rows term-cols)
0 0)) 0 0))
(define-struct-define cached-buffer cached-buffer-define) (define-struct-define cached-buffer-define cached-buffer)
(struct cached-buffer (struct cached-buffer
([clear-next? #:mutable] ([clear-next? #:mutable]
term-nclear term-yclear term-nclear term-yclear

2
lux-chaos.rkt
View File

@ -72,7 +72,7 @@
(define ch (make-async-channel)) (define ch (make-async-channel))
(*term alternate? mouse? #f #f ch #f #f #f #f)) (*term alternate? mouse? #f #f ch #f #f #f #f))
(define-struct-define *term term-define) (define-struct-define term-define *term)
(struct *term (struct *term
(alternate? mouse? t buf ch sig-th input-th rows cols) (alternate? mouse? t buf ch sig-th input-th rows cols)
#:mutable #:mutable