From 2bf7943cdc4d29a1441ab45d3c3c23d6ea62ce8d Mon Sep 17 00:00:00 2001
From: Hans Hagen <pragma@wxs.nl>
Date: Thu, 5 Jan 2012 19:27:18 +0100
Subject: beta 2011.11.03 23:27

---
 metapost/context/base/mp-mlib.mpiv | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'metapost')

diff --git a/metapost/context/base/mp-mlib.mpiv b/metapost/context/base/mp-mlib.mpiv
index eaef033a9..0d4285005 100644
--- a/metapost/context/base/mp-mlib.mpiv
+++ b/metapost/context/base/mp-mlib.mpiv
@@ -156,9 +156,9 @@ enddef ;
 
 defaultfont := "Mono" ; % was cmr10, could be lmmono10-regular, but is fed into context anyway
 
-vardef fontsize expr str =
+vardef fontsize expr name =
     save size ; numeric size ;
-    size := bbwidth(textext("\MPfontsizehskip{" & defaultfont & "}")) ;
+    size := bbwidth(textext("\MPfontsizehskip{" & name & "}")) ;
     if size = 0 :
         12pt
     else :
-- 
cgit v1.2.3