diff options
Diffstat (limited to 'sly/render/context.scm')
| -rw-r--r-- | sly/render/context.scm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/sly/render/context.scm b/sly/render/context.scm index fe16104..a83b612 100644 --- a/sly/render/context.scm +++ b/sly/render/context.scm @@ -22,6 +22,7 @@ ;;; Code: (define-module (sly render context) + #:use-module (rnrs bytevectors) #:use-module (ice-9 match) #:use-module (ice-9 q) #:use-module (srfi srfi-9) @@ -155,7 +156,9 @@ (compose q-pop! render-context-transform-stack)) (define (copy-transform! src dest) - (array-copy! (transform-matrix src) (transform-matrix dest))) + (bytevector-copy! (transform-matrix src) 0 + (transform-matrix dest) 0 + 64)) ;; emacs: (put 'with-transform-excursion 'scheme-indent-function 1) (define-syntax-rule (with-transform-excursion context body ...) |