[Rquantlib-commits] r245 - in pkg/RQuantLib: R src

[noreply at r-forge.r-project.org]

Author: edd
Date: 2010-06-12 20:18:13 +0200 (Sat, 12 Jun 2010)
New Revision: 245

Modified:
   pkg/RQuantLib/R/calendars.R
   pkg/RQuantLib/src/calendars.cpp
Log:
restored named list in call on holidayList which got dropped by accident


Modified: pkg/RQuantLib/R/calendars.R
===================================================================
--- pkg/RQuantLib/R/calendars.R	2010-06-12 17:56:10 UTC (rev 244)
+++ pkg/RQuantLib/R/calendars.R	2010-06-12 18:18:13 UTC (rev 245)
@@ -147,7 +147,7 @@
   stopifnot(class(to)=="Date")
   val <- .Call("QL_holidayList",
                calendar,
-               list(includeWeekends=as.double(includeWeekends), from, to),
+               list(includeWeekends=as.double(includeWeekends), from=from, to=to),
                PACKAGE="RQuantLib")
   val
 }

Modified: pkg/RQuantLib/src/calendars.cpp
===================================================================
--- pkg/RQuantLib/src/calendars.cpp	2010-06-12 17:56:10 UTC (rev 244)
+++ pkg/RQuantLib/src/calendars.cpp	2010-06-12 18:18:13 UTC (rev 245)
@@ -136,9 +136,6 @@
     return R_NilValue;
 }
 
-
-
-
 RcppExport SEXP QL_isWeekend(SEXP calSexp, SEXP dateSexp){
 
     try {
@@ -165,7 +162,6 @@
     return R_NilValue;
 }
 
-
 RcppExport SEXP QL_isEndOfMonth(SEXP calSexp, SEXP dateSexp){
 
     try {
@@ -192,7 +188,6 @@
     return R_NilValue;
 }
 
-
 RcppExport SEXP QL_endOfMonth(SEXP calSexp, SEXP dateSexp){
 
     try {
@@ -220,8 +215,6 @@
     return R_NilValue;
 }
 
-
-
 RcppExport SEXP QL_adjust(SEXP calSexp, SEXP bdcSEXP, SEXP dateSexp){
 
     try {
@@ -285,7 +278,6 @@
     return R_NilValue;
 }
 
-
 RcppExport SEXP QL_advance2(SEXP calSexp, SEXP param, SEXP dateSexp){
 
     try {
@@ -355,7 +347,6 @@
     return R_NilValue;
 }
 
-
 RcppExport SEXP QL_holidayList(SEXP calSexp, SEXP params) {
 
     try {