From c475ff122843eb7a4c4d8c9629685292c19f45e0 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Sun, 4 Jan 2015 09:52:44 -0800 Subject: [PATCH] turn on logging for segfault test --- quad/segfault.rkt | 3 ++- quad/world.rkt | 2 +- 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/quad/segfault.rkt b/quad/segfault.rkt index 8744d9c6..c2770fd9 100644 --- a/quad/segfault.rkt +++ b/quad/segfault.rkt @@ -1,9 +1,10 @@ #lang racket/base -(require "main.rkt" "samples.rkt" "render.rkt" "world.rkt" racket/class) +(require "main.rkt" "samples.rkt" "render.rkt" "world.rkt" racket/class "logger.rkt") (module+ main (define line-limit (with-handlers ([exn:fail? (λ(exn) #f)]) (string->number (vector-ref (current-command-line-arguments) 0)))) + (activate-logger quad-logger) (parameterize ([world:quality-default world:max-quality] [world:paper-width-default 412] [world:paper-height-default 600]) diff --git a/quad/world.rkt b/quad/world.rkt index 40e09a83..f9866932 100644 --- a/quad/world.rkt +++ b/quad/world.rkt @@ -94,4 +94,4 @@ (define min-last-lines 2) (define default-lines-per-column 36) -(define-parameter logging-level 'info) \ No newline at end of file +(define-parameter logging-level 'debug) \ No newline at end of file