From 01a9b06db595f51c022c20dd84b552e8c4335853 Mon Sep 17 00:00:00 2001 From: Jay McCarthy Date: Mon, 8 Jan 2018 13:45:24 -0500 Subject: [PATCH] better order --- buffer.rkt | 6 +++--- lux-chaos.rkt | 2 +- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/buffer.rkt b/buffer.rkt index 1664601..b7385ec 100644 --- a/buffer.rkt +++ b/buffer.rkt @@ -40,7 +40,7 @@ #:clear? [clear? #t] #:output [op (current-output-port)]) (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]) #:methods gen:buffer [(define (buffer-resize! buf new-rows new-cols) @@ -143,7 +143,7 @@ (define (make-output-buffer #:output [op (current-output-port)]) (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]) #:methods gen:buffer [(define (buffer-resize! buf new-rows new-cols) @@ -187,7 +187,7 @@ (make-cells term-rows term-cols) (make-cells term-rows term-cols) 0 0)) -(define-struct-define cached-buffer cached-buffer-define) +(define-struct-define cached-buffer-define cached-buffer) (struct cached-buffer ([clear-next? #:mutable] term-nclear term-yclear diff --git a/lux-chaos.rkt b/lux-chaos.rkt index 8964cfc..ac3c336 100644 --- a/lux-chaos.rkt +++ b/lux-chaos.rkt @@ -72,7 +72,7 @@ (define ch (make-async-channel)) (*term alternate? mouse? #f #f ch #f #f #f #f)) -(define-struct-define *term term-define) +(define-struct-define term-define *term) (struct *term (alternate? mouse? t buf ch sig-th input-th rows cols) #:mutable