From 32d789d4f8269c2106228c60df75592904ca4e04 Mon Sep 17 00:00:00 2001 From: Neil Toronto Date: Wed, 5 Oct 2011 13:11:04 -0600 Subject: [PATCH] Make most of 'plot' still function without libfit (all but 'fit') --- collects/plot/deprecated/fit.rkt | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/collects/plot/deprecated/fit.rkt b/collects/plot/deprecated/fit.rkt index cdc5a325ab..a39a00d8c1 100644 --- a/collects/plot/deprecated/fit.rkt +++ b/collects/plot/deprecated/fit.rkt @@ -1,6 +1,5 @@ (module fit mzscheme (require "math.rkt") - (require "fit-low-level.rkt") ; a structure contain a the results of a curve-fit (define-struct fit-result ( @@ -15,6 +14,8 @@ ; fit-int : (number* -> number) (list-of (symbol number)) (list-of (vector number [number] number number)) -> fit-result (define (fit-int function guesses data) + ;; Require dynamically so the rest of 'plot' still works without libfit: + (define fit-internal (dynamic-require 'plot/deprecated/fit-low-level 'fit-internal)) (let* ((independent-vars (- (procedure-arity function) (length guesses))) (f-of-x-y (cond [(= 1 independent-vars)